S,| v * 



ERR LINE ADOR B1 02 B3 B4 


6500 ASSEMBLER VER 1 OMR 


PAGE 




D800 

0006 

0005 


. NLIST 
. NAME 
. ASCT 


THIS FILE WAS MODIFIED BY MIKE LORENZEN TO LEAVE ONLY 
THE SOURCE CODE THAT PRODUCES THE 2K ROM MATH PACKAGE 800 
IN THE ATARI OPERATING SYSTEM. 

SEPT. 6, 1981 


. TITLE 'SHEPARDSON CONTRACTED MATH PACKAGE 


2K ROM MATH PACKAGE 




<C) COPYRIGHT 1978 SHEPARDSON MICROSYSTEMS, INC. 




FPORG 

FPREC 

FMPREC 


EQU 

EQU 

EQU 


*D800 

6 

FPREC— 1 


LENGTH OF FLOATING POINT MANTISA 










































































ERR LINE 


ADDR B 1 B2 B3 B4 


FLOATING POINT ZERO PAGE AREA 


PAGE 


2 


21 



. PAGE 

'FLOATING 

POINT ZERO PAGE AREA' 

22 


i 




23 


l 

FLOATING POINT WORK AREA 

24 


i 




25 



. ORG 

$D4 


26 

00D4 

FRO 

. RES 

1 

; FP REGO 

27 

00D5 

FROM 

. RES 

FPREC-1 

i FP REGOMANT 

28 

OODA 

FRE 

. RES 

FPREC 

i FP REGO EXP 

29 

OOEO 

FR1 

. RES 

1 

i FP REG 1 

30 

00E1 

FR1M 

. RES 

FPREC-1 

; FP REG1 MANT 

31 

00E6 

FR2 

. RES 

FPREC 

i FP REG 2 

32 

OOEC 

FRX 

. RES 

1 

; FP SPARE 

33 


i 




34 


i 

RAM FOR ASCII TO 

FLOATING POINT CONVERSION 

35 


i 




36 

OOED 

EEXP 

. RES 

1 

i VALUE OF E 

37 

OOEE 

FRSIGN 

. EQU 

* 

; FP SIGN 

38 

OOEE 

NSIGN 

. RES 

1 

i SIGN OF # 

39 

OOEF 

SQRCNT 




40 

OOEF 

PLYCNT 




41 

OOEF 

ESIGN 

. RES 

1 

; SIGN OF EXPONENT 

42 

OOFO 

SGNFLG 




43 

OOFO 

FCHRFLG 

. RES 

1 

; 1ST CHAR FLAG 

44 

00F1 

XFMFLG 




45 

OOF 1 

DIGRT 

. RES 

1 

; # OF DIGITS RIGHT OF DECIMAL 

46 


i 




47 


# 

INPUT 

BUFFER 


48 


i 




49 

00F2 

CIX 

. RES 

1 

; CURRENT INPUT INDEX 

50 

00F3 

INBUFF 

. RES 

2 

; LINE INPUT BUFFER 

51 






52 



TEMPS 



53 






54 

OOFS 

ZTEMP1 

. RES 

2 

; LOW LEVEL ZERO PAGE TEMPS 

55 

00F7 

Z TEMP 4 

. RES 

2 


56 

00F9 

ZTEMP3 

. RES 

2 


57 


i 




58 

OOFB 

DEGFLG 

. 



59 

OOFB 

RADFLG 

. RES 

1 

; 0=RADIANS, 6= DEGREES 

60 

0000 

RADON 

. EQU 

0 

; INDICATE RADIANS 

61 

0006 

DEGON 

. EQU 

6 

i INDICATES DEGREES 

62 

OOFC 

FLPTR 

. RES 

2 


63 

OOFE 

FPTR2 

. RES 

2 




ERR LINE ADDR B1 B2 B3 B4 FLOATING POINT RAM (NON-ZERO PAGE) 


PAGE 3 


64 


65 


66 


67 


68 


69 

057E 

70 

057F 

71 

0580 

72 


73 


74 

05E0 

75 

05E6 

76 

05EC 

77 

05E6 

78 

05EC 


.PAGE 'FLOATING POINT RAM (NON-ZERO PAGE)' 


MISC NON-ZERO PAGE RAM 

USED FOR VALUES NOT ACCESSED FREQUENTLY 



. ORG 

$57E 


LBPR1 

. RES 

1 

; LBUFF PREFIX 

LBPR2 

. RES 

1 

; BLUFF PREFIX 

LBUFF 

• 

. RES 

128 

; LINE BUFFER 

} 

. ORG 

LBUFF+$60 


PLYARG 

. RES 

FPREC 


FPSCR 

. RES 

FPREC 


FPSCR1 

. RES 

FPREC 


FSCR 

. EQU 

FPSCR 


FSCR1 

. EQU 

FPSCR 1 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

FLOATING POINT 



PAGE 

79 






. PAGE 

'FLOATING POINT' 

80 






. ORG 

FPORG 



81 





2 

LOCAL 




82 





2 





83 





2 

ASCIN - 

CONVERT ASCII 

INPUT TO INTERNAL FORM 

84 





2 





85 





2 

ON ENTRY INBUFF - 

POINTS TO BUFFER WITH ASCII 

86 





t 


CIX - INDEX 

TO 1ST BYTE OF # 

87 





2 





88 





2 

ON EXIT 

CC SET - 

CARRY SET IF NOT # 

89 





2 



CARRY CLEAR OF # 

90 





2 





91 





2 





92 

D800 




AFP 





93 

D800 




CVAFP 





94 

D800 




ASCIN 





95 

D800 

20 

A1 

DB 


JSR 

SKPBL.K 



96 

D803 

20 

BB 

DB 


JSR 

_TSTCHAR 

2 

SEE IF THIS COULD BE A NUMBER 

97 

D806 

BO 

39 



BCS 

_NONUM 

2 

BR IF NOT A NUMBER 

98 





2 





99 





i 

SET INITIAL VALUES 



100 





2 





101 

DB08 

A2 

ED 



LDX 

#EEXP 

2 

ZERO 4 VALUES 

102 

D80A 

AO 

04 



LDY 

#4 

2 

X 

103 

D80C 

20 

48 

DA 


JSR 

ZXLY 

2 

X 

104 

D80F 

A2 

FF 



LDX 

#*FF 



105 

D81 1 

86 

FI 



STX 

DIGRT 

2 

SET TO $FF 

106 





2 





107 

D813 

20 

44 

DA 


JSR 

ZFRO 

2 

CLEAR FRO 

108 





2 





109 

D816 

FO 

04 



BEQ 

_IN2 

2 

UNCONDITIONAL BR 

110 





i 





111 





2 





112 

D818 




_I N 1 





113 

D818 

A9 

FF 



LDA 

#*FF 

2 

SET 1ST CHAR FLAG TO NON ZERO 

114 

D81 A 

85 

FO 



STA 

FCHRFLG 

2 

X 

115 





i 





116 

D81C 




_IN2 





117 

D81C 

20 

94 

DB 


JSR 

GETCHAR 

2 

GET INPUT CHAR 

118 

D81F 

BO 

21 



BCS 

JM0N1 

2 

BR IF CHAR NOT NUMBER 

119 





2 





120 





2 





121 





i 

IT'S A 

NUMBER 



122 





2 





123 

D821 

48 




PHA 


2 

SAVE ON CPU STACK 

124 

D822 

A6 

D5 



LDX 

FROM 

2 

GET 1ST BYTE 

125 

D824 

DO 

1 1 



BNE 

_INCE 

2 

I NCR EXPONENT 

126 





2 




SHIFT FRO ONE NIBBLE LEFT 

127 

D826 

20 

EB 

DB 


JSR 

NIBSHO 

2 

128 





2 




GET DIGIT ON CPU STACK 

129 

D829 

68 




PLA 


2 

130 

D82A 

05 

D9 



ORA 

FROM+FMPREC 

-l 

> OR INTO LAST BYTE 

131 

D82C 

85 

D9 



STA 

FROM+FMPREC 

-l 

; SAVE AS LAST BYTE 

132 





2 






9 


LINE 

ADDR 

B1 

B2 B3 B4 

FLOATING POINT 



133 




} 

COUNT CHARACTERS 

AFTER DECIMAL POINT 

134 




i 




135 

D82E 

A6 

FI 


LDX 

DIGRT 

; GET # OF DIGITS RIGHT 

136 

DS30 

30 

E6 


BMI 

__I N 1 

; IF = *FF, NO DECIMAL POINT 

137 

D832 

ES 



INX 


; ADD IN THIS CHAR 

138 

D833 

86 

FI 


STX 

DIGRT 

; SAVE 

139 

D835 

DO 

El 


BNE 

_IN1 

; GET NEXT CHAR 

140 




i 




141 




i 




142 




i 

INCREMENT # OR DIGIT MORE THAN 9 

143 




i 




144 




i 




145 

D837 



_ I NCE 




146 

DS37 

68 



PLA 


; CLEAR CPU STACK 

147 

DS38 

A6 

FI 


LDX 

DIGRT 

i HAVE DP? 

148 

D83A 

10 

02 


BPL 

_INCE2 

i IF YES.. DON'T INCR E COUNT 

149 

DS3C 

E6 

ED 


INC 

EEXP 

j INCR EXPONENT 

150 

D83E 



__I NCE2 




151 

DS3E 

4C 

18 D8 


JMP 

_.IN1 

; GET NEXT CHAR 

152 




# 




153 




i 




154 

D84 1 



__NONUM 




155 

D841 

60 



RTS 


; RETURN FAIL 


PAGE 5 


ERR LINE 

ADDR 

B 1 B2 B3 B4 

FLOATING POINT 


PAGE 

156 




. PAGE 




157 



i 





158 



i 

NON-NUMERIC IN NUMBER BODY 

159 



# 





160 

D842 


_N0N1 





161 

D842 

C9 2E 


CMP 



IS IT DECIMAL POINT? 

162 

D844 

F0 14 


BEQ 

_DP 


IF YES, PROCESS IT 

163 

D846 

C9 45 


CMP 

# 'E ' 


IS IT E FOR EXPONENT? 

164 

D848 

FO 19 


BEQ 

EXP 


IF YES, DO EXPONENT 

165 



i 





166 

D84A 

A6 FO 


LDX 

FCHRFLG 


IS THIS THE 1ST CHAR 

167 

D84C 

DO 68 


BNE 

_EX I T 


IF NOT, END OF NUMERIC INPUT 

168 

D84E 

C9 2B 


CMP 

# '+' 


IS IT PLUS? 

169 

D850 

FO C6 


BEQ 

_IN1 


GO FOR NEXT CHAR 

170 

D852 

C9 2D 


CMP 

# ' 


IS IT MINUS? 

171 

D854 

FO 00 


BEQ 

_M I NUS 



172 



# 





173 

DS56 


_M I NUS 





174 

D856 

85 EE 


STA 

NSIGN 


SAVE SIGN FOR LATER 

175 

D858 

FO BE 


BEQ 

_I N 1 


UNCONDITIONAL BRANCH FOR NEXT CHAR 

176 



f 





177 

D85A 


_DP 





178 

D85A 

A6 FI 


LDX 

DIGRT 


IS DIGRT STILL = FF? 

179 

D85C 

10 58 


BPL 

_EXIT 


IF NOT, ALREADY HAVE DP 

180 

D85E 

E8 


I NX 



I NCR TO ZERO 

181 

D85F 

86 FI 


STX 

DIGRT 


SAVE 

182 

D861 

FO B5 


BEQ 

_IN1 


UNCONDITIONAL BR FOR NEXT CHAR 

183 



i 





184 

D863 


EXP 





185 

D863 

A5 F2 


LDA 

CIX 


GET INDEX 

186 

D865 

85 EC 


STA 

FRX 


SAVE 

187 

D867 

20 94 DB 


JSR 

_GETCHAR 


GET NEXT CHAR 

188 

D86A 

BO 37 


BCS 

_N0N2 


BR IF NOT NUMBER 

189 



i 





190 



j 

IT'S A 

NUMBER IN 

AN EXPONENT 

191 



» 





192 

D86C 


EXP 2 





193 

D86C 

AA 


TAX 



SAVE 1ST CHAR OF EXPONENT 

194 

D86D 

A5 ED 


LDA 

EEXP 


GET # OF CHAR OVER 9 

195 

D86F 

48 


PHA 



SAVE IT 

196 

D870 

86 ED 


STX 

EEXP 


SAVE 1ST CHAR OF EXPONENT 

197 

DS72 

20 94 DB 


JSR 

_GETCHAR 


GET NEXT CHAR 

198 



/ 





199 



I 





200 

D875 

BO 17 


BCS 

EXP3 


IF NOT # NO SECOND DIGIT 

201 

D877 

48 


PHA 



SAVE SECOND DIGIT 

202 



i 





203 

D878 

A5 ED 


LDA 

EEXP 


GET 1ST DIGIT 

204 

D87A 

OA 


ASLA 



GET DIGIT * 10 

205 

D87B 

85 ED 


STA 

EEXP 


X 

206 

D87D 

OA 


ASLA 



X 

207 

D87E 

OA 


ASLA 



X 

208 

D87F 

65 ED 


ADC 

EEXP 


X 

209 

D8S1 

85 ED 


STA 

EEXP 


SAVE 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

FLOATING POINT 


210 

D883 

68 




PLA 


211 

D884 

18 




CLC 


212 

D885 

65 

ED 



ADC 

EEXP 

213 

D887 

85 

ED 



STA 

EEXP 

214 





i 



215 

D889 

A4 

F2 



LDY 

CIX 

216 

D88B 

20 

9D 

DB 


JSR 

_GCHR1 

217 





i 



218 





i 



219 

D88E 




EXP3 



220 

DS8E 

A5 

EF 



LDA 

ESJ.GN 

221 

D890 

FO 

09 



BEQ 

EXP 1 

222 

D892 

A5 

ED 



LDA 

EEXP 

223 

D894 

49 

FF 



EOR 

#*FF 

224 

D896 

18 




CLC 


225 

D897 

69 

01 



ADC 

#1 

226 

D899 

85 

ED 



STA 

EEXP 

227 

D89B 




EXP 1 



228 

D89B 

68 




PLA 


229 

D89C 

18 




CLC 


230 

D89D 

65 

ED 



ADC 

EEXP 

231 

D89F 

85 

ED 



STA 

EEXP 

232 

D8A1 

DO 

13 



BNE 

JEXIT 


GET SECOND DIGIT 


GET EXPONENT INPUTTED 
SAVE 

INC TO NEXT CHAR 
X 


GET SIGN OF EXPONENT 
IF NO SIGN> IT IS + 

GET EXPONENT ENTERED 
COMPLEMENT TO MAKE MINUS 
X 
X 

SAVE 

GET # DIGITS MORE THAN 9 
CLEAR CARRY 

ADD IN ENTERED EXPONENT 
SAVE EXPONENT 
UNCONDITIONAL BR 


ERR LINE 


ADDR B 1 B2 B3 B4 


FLOATING POINT 


PAGE 


8 


233 

234 

235 

236 


237 

D8A3 



238 

D8A3 

C9 

2B 

239 

D8A5 

FO 

06 

240 

D8A7 

C9 

2D 

241 

D8A9 

DO 

07 

242 




243 




244 

DSAB 



245 

D8AB 

85 

EF 

246 

D8AD 



247 

D8AD 

20 

94 DB 

248 

D8B0 

90 

BA 


249 

250 

251 

252 

253 

254 D8B2 

255 DSB2 A5 EC 

256 D8B4 85 F2 

257 

258 


. PAGE 

NON-NUMERIC IN EXPONENT 


N0N2 


EMIN 

EPLUS 


} 

# 

i 

i 

# 

NOTE 


CMP 

BEQ 

CMP 

BNE 

# '+ ' ; 

_EPLUS ; 

# ' ; 

_NOTE ; 

IS IT PLUS? 

IF YES BR 
IS IT A MINUS? 
IF NOT, BR 

STA 

ESIGN ; 

SAVE EXPONENT SIGN 

JSR 

BCC- 

_GETCHAR ; 

EXP2 ; 

GET CHARACTER 

IF A #, GO PROCESS EXPONENT 

E NOT PART OF OUR # 


LDA 

STA 

FRX ; 

CIX ; 

POINT TO 1 PAST E 
RESTORE CIX 

FALL 

THRU TO EXIT 



ERR LINE ADDR B1 B2 B3 B4 


FLOATING POINT 


PAGE 


9 


259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 


D8B6 


D8B6 C6 FI 


274 

D8B8 

A5 

ED 

275 

D8BA 

A6 

FI 

276 

D8BC 

30 

05 

277 

D8BE 

FO 

03 

278 

D8C0 

38 


279 

D8C 1 

E5 

FI 

280 




281 




282 




283 

D8C3 



284 

D8C3 

48 


285 

D8C4 

2A 


286 

D8C5 

68 


287 

D8C6 

6A 


288 

D8C7 

85 

ED 

289 

DSC9 

90 

03 

290 




291 

D8CB 

20 

EB DB 

292 

DSCE 



293 

D8CE 

A5 

ED 

294 

DSDO 

18 


295 

D8D1 

69 

44 

296 

D8D3 

85 

D4 

297 




298 

DSD5 

20 

00 DC 

299 

D8D8 

BO 

OB 

300 




301 




302 




303 

D8DA 

A6 

EE 

304 

D8 DC 

FO 

06 

305 




306 

DSDE 

A5 

D4 

307 

D8E0 

09 

80 

308 

D8E2 

85 

D4 

309 

D8E4 



310 

D8E4 

18 


311 

D8E5 



312 

D8E5 

60 



EXIT 


EX I T 1 


EVEN 


INDON 


I ND2 


. PAGE 


WHOLE # HAS BEEN INPUTTED 


BACK UP ONE CHAR 


DEC 


CIX 


; DECREMENT INDEX 


CALCULATE POWER OF 10 = EXP - DIGITS RIGHT 
WHERE EXP = ENTERED EXPONENT (COMPLEMENT OF -) 
+ # DIGITS MORE THAN 9 


LDA 

LDX 

BMI 

BEG 

SEC 

SBC 


EEXP 
DIGRT 
__E X I T 1 
_E X I T 1 

DIGRT 


GET EXPONENT 

GET # DIGITS RIGHT OF DECIMAL 

NO DECIMAL POINT 

# OF DIGITS AFTER D. P. =0 

GET EXP - DIGITS RIGHT AS NEW EXP 

X 


SHIFT RIGHT ALGEBRAIC TO DIVIDE BY 2 = POWER OF 100 


PHA 

ROLA 

PLA 

RORA 

STA 

BCC 

JSR 

LDA 

CLC 

ADC 

STA 

JSR 

BCS 


EEXP 

_EVEN 

NIBSHO 

EEXP 

#$44 

FRO 

NORM 

IND2 


SET CARRY WITH SIGN OF EXPONENT 
GET EXPONENT AGAIN 
SHIFT RIGHT 
SAVE POWER OF 100 
IF NO CARRY # EVEN 

; ELSE SHIFT 1 NIBBLE LEFT (MULT BY 10) 


ADD 40 FOR EXCESS 64 + 4 FOR NORM 

X 

X 

SAVE AS EXPONENT 

NORMALIZE NUMBER 

IF CARRY SET, IT'S AN ERROR 


SET MANTISSA SIGH 


LDX 

BEG 

LDA 

ORA 

STA 

CLC 


NSIGN 

„INDON 

FRO 

#$80 

FRO 


IS SIGN OF # MINUS? 
IF NOT, BR 

GET EXPONENT 

TURN ON MINUS # BIT 

SET IN FRO EXP 

CLEAR CARRY 


RTS 


LINE 

ADDR 

B 1 

B2 

B3 B4 

FLOATING POINT 



PAGE 

313 






. PAGE 




314 




i 





315 






FPASC - 

CONVERT FLOATING POINT TO ASCII 

316 




i 





317 






ON ENTRY 

FRO - # 

TO 

CONVERT 

318 




i 





319 






ON EXIT 

INBUFF 

- POINTS TO START OF # 

320 




i 


HIGH ORDER 

BIT OF LAST BYTE IS ON 

321 




i 





322 










323 

D8E6 



CVFASC 





324 

D8E6 



FASC 





325 

D8E6 

20 

51 

DA 


JSR 

INTLBF 

J 

SET INBUFF TO PT TO LBUFF 

326 










327 

DSE9 

A9 

30 



LDA 

# '0' 

i 

GET ASCII ZERO 

328 

D8EB 

8D 

7F 

05 


STA 

LBUFF-1 

i 

PUT IN FROUNT OF LBUFF 

329 










330 






TEST FOR 

E FORMAT 

REQUIRED 

331 










332 

D8EE 

A5 

D4 



LDA 

FRO 

i 

GET EXPONENT 

333 

D8F0 

F0 

28 



BEQ 

_EXPO 

i 

IF EXP =0, # = 0, SO BR 

334 

D8F2 

29 

7F 



AND 

#$7F 

# 

AND OUT SIGH 

335 

D8F4 

C9 

3F 



CMP 

#$3F 

j 

IS IT LESS THAN 3F 

336 

D8F6 

90 

28 



BCC 

_EFORM 

/ 

IF YES, E FORMAT REQUIRED 

337 

D8F8 

C9 

45 



CMP 

#$45 

9 

IF IT IS > 44 

338 

D8FA 

BO 

24 



BCS 

_EFORM 

9 

IF YES, E FORMAT REQUIRED 

339 










340 






PROCESS 

NOT E FORMAT 


341 










342 

D8FC 

38 




SEC 


9 

SET CARRY 

343 

D8FD 

E9 

3F 



SBC 

#$3F 

9 

GET DECIMAL POSITION 

344 










345 

D8FF 

20 

70 

DC 


JSR 

_CVFRO 

9 

CONVERT FRO TO ASCII CHAR IN LBUFF 

346 










347 

D902 

20 

A4 

DC 


JSR 

_FNZERQ 

9 

FIND LAST NON-ZERO CHARACTER 

348 

D905 

09 

80 



ORA 

#$80 

9 

TURN ON HIGH ORDER BIT FOR POINT END 

349 

D907 

9D 

80 

05 


STA 

LBUFFi X 

9 

STORE IT BACK IN BUFFER 

350 










351 

D90A 

AD 

80 

05 


LDA 

LBUFF 

9 

GET 1ST CHAR IN LBUFF 

352 

D90D 

C9 

2E 



CMP 

#'. ' 

9 

IS IT DECIMAL? 

353 

D90F 

FO 

03 



BEQ 

_FN6 

9 

BR IF YES 

354 

D91 1 

4C 

88 

D9 


JMP 

_FN5 

9 

ELSE JUMP 

355 

D914 




_FN6 





356 

D914 

20 

Cl 

DC 


JSR 

DEC INB 

9 

DECIMAL INBUFF 

357 

D917 

4C 

9C 

D9 


JMP 

_FN4 

9 

DO FINAL ADJUSTMENT 


% 

ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

FLOATING POINT 



358 






. PAGE 


(% 

359 





i 




360 





• 

> 

EXPONENT 

IS ZERO 


361 





i 




362 





i 




363 

D91 A 




__EXPO 




364 

D9 1 A 

A9 

BO 



LDA 

#*80+*30 

(% 

365 

D91C 

SD 

80 

05 


STA 

LBUFF 


366 

D91F 

60 




RTS 





* 




PAGE 


11 


- # IS ZERO 


; GET ASCII 0 WITH MSB = 1 
; PUT IN BUFFER 


0 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 FLOATING POINT 


367 





. PAGE 


368 




i 



369 




i 

PROCESS 

E FORMAT 

370 




1 



371 

D920 



_EFORM 



372 

D920 

A9 

01 


LDA 

#1 

373 

D922 

20 

70 

DC 

JSR 

_CVFRO 

374 







375 

D925 

20 

A4 

DC 

JSR 

_FNZERO 

376 

D928 

E8 



I NX 


377 

D929 

86 

F2 


STX 

CIX 

378 




i 



379 




j 

ADJUST EXPONENT 

380 




i 



381 

D92B 

A5 

D4 


LDA 

FRO 

382 

D92D 

OA 



ASLA 


383 

D92E 

38 



SEC 


384 

D92F 

E9 

80 


SBC 

#$40*2 

385 




i 



386 

D931 

AE 

80 

05 

LDX 

LBUFF 

387 

D934 

EO 

30 


CPX 

# 'O' 

388 

D936 

FO 

17 


BEQ 

EF1 

389 




t 



390 




i 

PUT DECIMAL AFTER 

391 




i 



392 

D938 

AE 

81 

05 

LDX 

LBUFF+1 

393 

D93B 

AC 

82 

05 

LDY 

LBUFF+2 

394 

D93E 

8E 

82 

05 

STX 

LBUFF+2 

395 

D941 

8C 

81 

05 

STY 

LBUFF+1 

396 




/ 



397 




; 



398 

D944 

A6 

F2 


LDX 

CIX 

399 

D946 

EO 

02 


CPX 

#2 

400 

D948 

DO 

02 


BNE 

_N0 I NC 

401 

D94A 

E6 

F2 


INC 

CIX 

402 




i 



403 

D94C 



_N0 I NC 



404 

D94C 

18 



CLC 


405 

D94D 

69 

01 


ADC 

#1 

406 




f 



407 




i 

CONVERT 

EXP TO AS( 

408 




J 



409 

D94F 



_EF 1 



410 

D94F 

85 

ED 


STA 

EEXP 

411 

D951 

A9 

45 


LDA 

# 'E ' 

412 

D953 

A4 

F2 


LDY 

CIX 

413 

D955 

20 

9F 

DC 

JSR 

_STCHAR 

414 

D958 

84 

F2 


STY 

CIX 

415 




i 



416 




/ 



417 

D95A 

A5 

ED 


LDA 

EEXP 

418 

D95C 

10 

OB 


BPL 

_EPL 

419 




/ 



420 




i 

EXPONENT IS MINUS 


PAGE 12 % 


0 

GET DECIMAL POSITION 
CONVERT FRO TO ASCII IN LBUFF 

• 

GET RID OF TRAILING ZEROS 
I NCR INDEX 

SAVE INDEX TO LAST CHAR • 


GET EXPONENT 

MULT BY 2 (GET RID OF SIGN TOO) 

SUB EXCESS 64 

GET 1ST CHAR IN LBUFF 
IS IT ASCII 0? 


CHAR (IT'S AFTER 2ND NOW) 

SWITCH D. P. + 2ND DIGIT 
X 
X 
X 


IF CIX POINTS TO D. P. 
THEN INC 
X 
X 


; X 
; X 


SAVE EXPONENT 
GET ASCII E 
GET POINTER 
STORE CHARACTER 
SAVE INDEX 


; GET EXPONENT 
; BR IF PLUS 

COMPLEMENT IT 




ERR LINE ADDR B1 B2 B3 B4 


FLOATING POINT 


421 

i 



422 D95E A9 00 


LDA 

#0 

423 D960 38 


SEC 


424 D961 E5 ED 


SBC 

EEXP 

425 D963 85 ED 


STA 

EEXP 

426 

» 



427 D965 A9 2D 


LDA 

# ' 

428 D967 DO 02 


BNE 

_EF2 

429 

i 



430 D969 

_EPL 



431 D969 A9 2B 


LDA 

# '+' 

432 D96B 

_EF2 



433 D96B 20 9F DC 


JSR 

_STCHAR 

434 

i 



435 D96E A2 00 


LDX 

#0 

436 D970 A5 ED 


LDA 

EEXP 

437 

i 



438 D972 

_EF3 



439 D972 38 


SEC 


440 D973 E9 OA 


SBC 

#10 

441 D975 90 03 


BCC 

_EF4 

442 D977 E8 


INX 


443 D978 DO FS 


BNE 

_EF3 

444 

» 



445 D97A 

_EF4 



446 D97A 18 


CLC 


447 D97B 69 OA 


ADC 

#10 

448 D97D 48 


PHA 


449 

; 



450 D97E 8A 


TXA 


451 D97F 20 9D DC 


JSR 

_STNUM 

452 D982 68 


PLA 


453 D983 09 80 


□RA 

#$80 

454 D985 20 9D DC 


JSR 

_STNUM 

455 




456 


FINAL 

ADJUSTMENT 

457 




458 D988 

_FN5 



459 D988 AD 80 05 


LDA 

LBUFF 

460 D98B C9 30 


CMP 

# '0' 

461 D98D DO OD 


BNE 

_FN4 

462 




463 


INCREMENT INBUFF 

464 




465 D98F 18 


CLC 


466 D990 A5 F3 


LDA 

INBUFF 

467 D992 69 01 


ADC 

#1 

468 D994 85 F3 


STA 

INBUFF 

469 D996 A5 F4 


LDA 

INBUFF+1 

470 D998 69 00 


ADC 

#0 

471 D99A 85 F4 


STA 

INBUFF+1 

472 D99C 

FN4 



473 D99C A5 D4 


LDA 

FRO 

474 D99E 10 09 


BPL 

__FADONE 


PAGE 13 


SUBTRACT FROM O TO COMPLEMENT 

X 

X 


; GET A MINUS 


; GET A PLUS 

; STORE A CHARACTER 

; SET COUNTER FOR # OF TENS 
; GET EXPONENT 


SUBTRACT 10 
IF < 0, BRANCH 
I NCR # OF 10'S 
BR UNCONDITIONAL 


ADD BACK IN 10 
X 

SAVE 

GET # OF 10 'S 

PUT 10 'S IN EXP IN BUFFER 

GET REMAINDER 

TURN ON HIGH ORDER BIT FOR PRINT END 
PUT IN BUFFER 


; GET 1ST BYTE IN LBUFF (OUTPUT) 
; IS IT ASCII 0? 

; IF NOT BR 

POINT TO NON-ZERO 

; ADD 1 TO INBUFF 

; X 
i X 
i X 
; X 
i X 
i X 

; GET EXPONENT OF # 

; IF SIGN +, WE ARE DONE 


PAGE 


14 


■ » rnmf 


I 1 


X I 


WJ.X 7 VM • / WC. fine UUIMC 


/ 


ERR LINE 

ADDR 

6 1 

B2 

B3 B4 

FLOATING POINT 



475 





i 



476 

D9A0 

20 

Cl 

DC 

JSR 

_DECINB 

; DECR INBUFF 

477 

D9A3 

AO 

00 


LDY 

#0 

; GET INDEX 

478 

* D9A5 

A9 

2D 


LDA 


; GET ASCII - 

479 

D9A7 

91 

F3 


STA 

( INBUFF ) / Y 

; SAVE - IN BUFFER 

480 








481 

D9A9 




_FADONE 



482 

D9A9 

60 



RTS 




PAGE 14 


ERR LINE ADDR B1 B2 B3 B4 


FLOATING POINT 


PAGE 


15 


483 

484 

485 

486 

487 

488 

489 

490 

491 

492 D9AA 

493 D9AA 

494 

495 

496 


. PAGE 

IFP - CONVERT INTEGER TO FLOATING POINT 

ON ENTRY FRO - CONTAINS INTEGER 

ON EXIT FRO - CONTAINS FLOATING POINT # 


CVIFP 

IFP 

i 


MOVE INTEGER AND REVERSE BYTES 


497 

D9AA 

A5 D4 


LDA 


FRO 

9 

GET INTEGER LOW 

498 

D9AC 

85 F8 


STA 


ZTEMP4+1 

9 

SAVE AS INTEGER HIGH 

499 

D9AE 

A5 D5 


LDA 


FRO+l 

9 

GET INTEGER HIGH 

500 

D9B0 

85 F7 


STA 


ZTEMP4 

i 

SAVE AS INTEGER LOW 

501 



9 






502 

D9B2 

20 44 DA 


JSR 


ZFRO 

i 

CLEAR FRO 

503 

D9B5 

F8 


SED 



i 

SET DECIMAL MODE 

504 



9 






505 



i 

DO THE 

CONVERT 



506 



i 






507 

D9B6 

AO 10 


LDY 


#16 

t 

GET # BITS IN INTEGER 

508 

D9B8 


_I FP 1 






509 

D9B8 

06 F8 


ASL 


ZTEMP4+1 

i 

SHIFT LEFT INTEGER LOW 

510 

D9BA 

26 F7 


ROL 


ZTEMP4 

} 

SHIFT LEFT INTEGER HIGH 

51 1 



; CARRY 

NOW 

SET 

IF THERE 

WAS 

A BIT 

512 









513 

D9BC 

A2 03 


LDX 


#3 

9 

BIGGEST INTEGER IS 3 BYTES 

514 

D9BE 


_I FP2 






515 



i 






516 



i 

DOUBLE 

# AND ADD 

IN 1 

IF CARRY SET 

517 



i 






518 

D9BE 

B5 D4 


LDA 


FRO, X 

9 

GET BYTE 

519 

D9C0 

75 D4 


ADC 


FRO, X 

i 

DOUBLE (ADDING IN CARRY FROM 

520 

D9C2 

95 D4 


STA 


FRO, X 

/ 

SAVE 

521 

D9C4 

CA 


DEX 



/ 

DECREMENT COUNT OF FRO BYTES 

522 

D9C5 

DO F7 


BNE 


__I FP2 

i 

IF MORE TO DO, DO IT 

523 



i 






524 

D9C7 

88 


DEY 



9 

DECR COUNT OF INTEGER DIGITS 

525 

D9C8 

DO EE 


BNE 


_IFP1 

9 

IF MORE TO DO, DO IT 

526 

D9CA 

D8 


CLD 



9 

CLEAR DECIMAL MODE 

527 









528 



} 

SET 

EXPONENT 



529 



i 






530 

D9CB 

A9 42 


LDA 


#$42 

9 

INDICATE DECIMAL AFTER LAST 

531 

D9CD 

85 D4 


STA 


FRO 

9 

STORE EXPONENT 

532 



i 






533 

D9CF 

4C 00 DC 


JMP 


NORM 

9 

NORMALIZE 


534 


ERR LINE 

ADDR 

B 1 

B2 B3 B4 

FLOATING POINT 

PAGE 

535 





. PAGE 



536 




9 




537 




# 

FPI - 

CONVERT FLOATING POINT TO INTEGER 


538 




i 




539 

540 




i 

ON ENTRY FRO - FLOATING POINT NUMBER 


541 





ON EXIT FRO - INTEGER 


542 




> 




543 








544 





CC SET 

CARRY CLEAR - NO ERROR 


545 




i 


CARRY SET - ERROR 


546 




i 




547 








548 

D9D2 



FPI 




549 




i 




550 




9 

CLEAR 

INTEGER 


551 




9 




552 

D9D2 

A9 

00 


LDA 

#0 ; CLEAR INTEGER RESULT 


553 

D9D4 

85 

F7 


STA 

ZTEMP4 


554 

D9D6 

85 

F8 


STA 

ZTEMP4+ 1 


555 




9 




556 




9 

CHECK 

EXPONENT 


557 




9 




558 

D9D8 

A5 

D4 


LDA 

FRO ; GET EXPONENT 


559 

D9DA 

30 

66 


BMI 

JERVAL i IF SIGN OF FP# IS 

THEN ERROR 

560 

D9DC 

C9 

43 


CMP 

#$43 ; IS FP# TOO BIG TO BE 

INTEGER 

561 

D9DE 

BO 

62 


BCS 

JERVAL ; IF YES, THEN ERROR 


562 

D9E0 

38 



SEC 

; SET CARRY 


563 

D9E1 

E9 

40 


SBC 

#$40 i IS FP# LESS THAN 1? 


564 

D9E3 

90 

3F 


BCC 

_ROUND ; IF YES, THEN GO TEST 

FOR ROUND 

565 




9 




566 




9 

GET # 

OF DIGITS TO CONVERT = (EXPONENT -40+1 > *2 

567 




9 

(A CONTAINS EXPONENT -40) 


568 




9 

(CARRY 

SET) 


569 




9 




570 

D9E5 

69 

00 


ADC 

#0 ; ADD IN CARRY 


571 

D9E7 

OA 



ASLA 

i MULT BY 2 


572 

D9E8 

85 

F5 


STA 

ZTEMP1 ; SAVE AS COUNTER 


573 




9 




574 




9 

DO CONVERT 


575 




9 




576 

D9EA 



Jr PI 1 




577 




9 




578 




9 

MULT INTEGER RESULT BY 10 


579 




9 




580 

D9EA 

20 

5A DA 


JSR 

_ILSHFT ; GO SHIFT ONCE LEFT 


581 

D9ED 

BO 

53 


BCS 

_ERVAL ; IF CARRY SET THEN # 

TO BIG 

582 




9 




583 

D9EF 

A5 

F7 


LDA 

ZTEMP4 ; SAVE INTEGER *2 


584 

D9F1 

85 

F9 


STA 

Z TEMP 3 i X 


585 

D9F3 

A5 

F8 


LDA 

Z TEMP 4+1 ; X 


586 

D9F5 

85 

FA 


STA 

ZTEMP3+1 ; X 


587 




9 




588 

D9F7 

20 

5A DA 


JSR 

ILSHFT ; MULT BY *2 



ERR LINE 

ADDR 

B 1 B2 

B3 B4 

FLOATING POINT 

589 

D9FA 

BO 46 


BCS 

_ERVAL 

590 

D9FC 

20 5A 

DA 

JSR 

_ILSHFT 

591 

D9FF 

BO 41 


BCS 

_ERVAL 

592 




# 


593 

DA01 

18 


CLC 


594 

DA02 

A5 F8 


LDA 

ZTEMP4+ 1 

595 

DA04 

65 FA 


ADC 

ZTEMP3+ 1 

596 

DA06 

85 F8 


STA 

ZTEMP4+ 1 

597 

DA08 

A5 F7 


LDA 

ZTEMP4 

598 

DAOA 

65 F9 


ADC 

ZTEMP3 

599 

DAOC 

85 F7 


STA 

ZTEMP4 

600 

DAOE 

BO 32 


BCS 

_ERVAL 

601 




9 


602 




9 


603 




; ADD IN 

NEXT DIGI 

604 




9 


605 

DA 10 

20 B9 

DC 

JSR 

_GETDIG 

606 

DA 13 

18 


CLC 


607 

DA 14 

65 F8 


ADC 

ZTEMP4+ 1 

608 

DA 16 

85 F8 


STA 

ZTEMP4+1 

609 

DAI 8 

A5 F7 


LDA 

ZTEMP4 

610 

DAI A 

69 00 


ADC 

#0 

61 1 

DA 1C 

BO 24 


BCS 

ERVAL 

612 

DA IE 

85 F7 


STA 

ZTEMP4 

613 




9 


614 

DA20 

C6 F5 


DEC 

Z TEMPI 

615 

DA22 

DO C6 


BNE 

_FP 1 1 

616 




# 


617 




; ROUND 

IF NEEDED 

618 




i 


619 

DA24 



_ROUND 


620 

DA24 

20 B9 DC 

JSR 

_GETDIG 

621 

DA27 

C9 05 


CMP 

#5 

622 

DA29 

90 OD 


BCC 

_NR 

623 

DA2B 

18 


CLC 


624 

DA2C 

A5 F8 


LDA 

ZTEMP4+1 

625 

DA2E 

69 01 


ADC 

#1 

626 

DA30 

85 F8 


STA 

ZTEMP4+1 

627 

DA32 

A5 F7 


LDA 

ZTEMP4 

628 

DA34 

69 00 


ADC 

#0 

629 

DA36 

85 F7 


STA 

ZTEMP4 

630 




i 



631 




} 

MOVE 

INTEGER TO FRO 

632 




9 



633 

DA38 



_NR 



634 

DA38 

A5 

F8 


LDA 

ZTEMP4+1 

635 

DA3A 

85 

D4 


STA 

FRO 

636 

DA3C 

A 5 

F7 


LDA 

ZTEMP4 

637 

DA3E 

85 

D5 


STA 

FRO+1 

638 




9 



639 

DA40 

18 



CLC 


640 

DA4 1 

60 



RTS 


641 




i 



642 




i 




i # TO BIG 

; MULT BY *2 < NOW * 8 IN ZTEMP4) 
i BR IF # TO BIG 

i ADD IN * 2 TO = *10 

; X 
i X 
i X 
i X 
i X 
i X 

i IF CARRY SET ERROR 


; GET DIGIT IN A 

; ADD IN DIGIT 
; X 
; X 
; X 

; BR IF OVERFLOW 
i X 

j DEC COUNTER OF DIGITS TO DO 
; IF MORE TO DO, DO IT 


i GET NEXT DIGIT IN A 
; IS DIGIT <5? 

; IF YES, DON 'T ROUND 
; ADD IN 1 TO ROUND 
; X 
; X 
; X 
> X 
; X 
i X 


; GET INTEGER LOW 
; SAVE 

; GET INTEGER HIGH 
i SAVE 

; CLEAR CC FOR GOOD RETURN 


641 

642 


> 


LINE ADDR B1 B2 B3 B4 

643 DA42 

644 DA42 38 

645 DA43 60 


FLOATING POINT 
JERVAL 

SEC 

RTS 


PAGE 


; SET CARRY FOR ERROR RETURN 




18 



ERR LINE 

ADDR 

D 1 32 B3 34 

FLOATING POINT 


646 




. PAGE 



647 







648 




ZFRO - 

ZERO FRO 


649 







650 




ZF1 - 

ZERO 6 BYTES AT 

LOC X 

651 







652 




ZXLY - 

ZERO PAGE ZERO 

LOC X FOR LENGTH Y 

653 



i 




654 







655 

DA44 

ZFRO 




656 

DA44 

A2 D4 


LDX 

#FRO i 

GET POINTER TO FR 1 

657 







658 

DA46 

ZF1 




659 

DA46 

AO 06 


LDY 

#6 ; 

GET # OF BYTES TO CLEAR 

660 

DA48 

ZXLY 




661 

DA48 

A9 00 


LDA 

#0 ; 

CLEAR A 

662 

DA4A 


JZF2 




663 

DA4A 

95 00 


STA 

0, X ; 

CLEAR A BYTE 

664 

DA4C 

E8 


I NX 

i 

POINT TO NEXT BYTE 

665 

DA4D 

88 


DEY 

# 

DEC COUNTER 

666 

DA4E 

DO FA 


BNE 

-ZF2 ; 

LOOP 

667 

DA50 

60 


RTS 



668 







669 







670 







671 







672 




INTLBF 

~ INIT LBUFF INTO INBUFF 

673 







674 

DA51 

INTLBF 




675 

DA 51 

A9 05 


LDA 

#. HIGH. LBUFF 


676 

DA53 

85 F4 


STA 

I NBUFF+1 


677 

DA55 

A9 80 


LDA 

#. LOW. LBUFF 


678 

DA57 

85 F3 


STA 

INBUFF 


679 

DA59 

60 


RTS 




ERR LINE 


ADDR 


B1 B2 B3 B4 


FLOATING POINT 


PAGE 20 


680 




681 




682 




683 




684 

DA5A 



685 

DA5A 



686 

DA5A 

18 


687 

DA5B 

26 

F8 

688 

DA5D 

26 

F7 

689 

DA5F 

60 



. PAGE 

i 

; _ILSHFT - SHIFT INTEGER IN ZTEMP4 LEFT ONCE 

i 

ILSHFT 

__ILSHFT 

CLC i CLEAR CARRY 

ROL ZTEMP4+1 ; SHIFT LOW 

ROL ZTEHP4 ; SHIFT HIGH 

RTS 


ERR LINE ADDR B1 B2 B3 B4 


FLOATING POINT ROUTINES 


PAGE 


690 




. PAGE 'FLOATING 

POINT ROUTINES' 

691 








692 



l 

FADD 

- FLOATING POINT 

ADD ROUTINE 

693 



1 


ADDS VALUES IN FRO AND FR 1 

694 



i 





695 



1 

ON ENTRY FRO S< 

FR 1 

- CONTAIN # TO ADD 

696 



I 





697 



i 

ON EXIT FRO - 

RESULT 

698 



1 





699 



i 





700 



i 

FSUB 

- FLOATING POINT 

SUBTRACT ROUTINE 

701 



i 


SUBTRACTS 

FR 1 

FROM FRO 

702 



i 





703 



i 

ON ENTRY FRO $< 

FR 1 

- CONTAIN # TO SUBTRACT 

704 



# 





705 



i 

ON EXIT FRO - 

RESULT 

706 



> 





707 



> 

BOTH 

RETURN WITH 

CC SET: 

708 



# 


CARRY SET 

IF 

ERROR 

709 



i 


CARRY CLEAR IF NO ERROR 

710 



i 





711 



i 





712 DA60 



FSUB 





713 DA60 

A5 

EO 


LDA 

FR 1 

# 

GET EXPONENT OF FR 1 

714 DA62 

49 

80 


EOR 

#$80 

i 

CHANGE SIGN OF MANTISSA 

715 DA64 

85 

EO 


STA 

FR 1 

/ 

SAVE EXPONENT 

716 



# 





717 



i 





718 



> 





719 DA66 



FADD 





720 DA66 



_FRADD 





721 DA66 

A5 

EO 


LDA 

FR 1 

i 

GET EXPONENT FR 1 

722 DA68 

29 

7F 


AND 

#$7F 

i 

TURN OFF MANTISSA SIGN BIT 

723 DA6A 

85 

F7 


STA 

ZTEMP4 


SAVE TEMPORARILY 

724 DA6C 

A5 

D4 


LDA 

FRO 

i 

GET EXPONENT FRO 

725 DA6E 

29 

7F 


AND 

#$7F 

i 

TURN OFF MANTISSA SIGN BIT 

726 DA70 

38 



SEC 


i 

CLEAR CARRY 

727 DA7 1 

E5 

F7 


SBC 

Z TEMP 4 

* 

SUB EXPONENTS 

728 DA73 

10 

10 


BPL 

JMSWAP 

i 

IF EXP < FRO ) >= EXP(FRl), NO SWAP 

729 



I 





730 



i 

SWAP 

FRO AND FR 1 



731 



i 





732 DA75 

A2 

05 


LDX 

#FMPREC 

i 

GET INDEX 

733 



# 





734 DA77 



_SWAP 





735 DA77 

B5 

D4 


LDA 

FRO/ X 

i 

GET BYTE FROM FRO 

736 DA79 

B4 

EO 


LDY 

FR1, X 

i 

GET BYTE FROM FR 1 

737 DA7B 

95 

EO 


STA 

FR 1 / X 


PUT FRO BYTE IN FR 1 

738 DA7D 

98 



TYA 


i 

GET FR 1 BYTE 

739 DA7E 

95 

D4 


STA 

FRO/ X 

i 

PUT FR 1 BYTE IN FRO 

740 DA80 

CA 



DEX 


i 

DEC INDEX 

741 DA81 

10 

F4 


BPL 

_SWAP 

} 

IF MORE TO DO/ GO SWAP 

742 DA83 

30 

El 


BMI 

__FRADD 

# 

UNCONDITIONAL 

743 



) 






ERR LINE 

ADDR 

B 1 B2 B3 B4 

FLOATING POINT ROUTINES 


744 

DA85 


_NSWAP 




745 

DA85 

FO 07 


BEQ 

_NAL I GN 

# 

746 

DA87 

C9 05 


CMP 

#FMPREC 

9 

747 

DA89 

BO 19 


BCS 

_ADDEND 

9 

748 



i 




749 



# 




750 

DA8B 

20 3E DC 


JSR 

RSHFT1 

9 

751 



j 




752 



# 

TEST 

FOR LIKE SIGN 

OF 

753 



i 




754 

DABE 


_N ALIGN 




755 

DA8E 

F8 


SED 


9 

756 

DA8F 

A5 D4 


LDA 

FRO 

9 

757 

DA91 

45 EO 


EOR 

FR 1 

9 

758 

DA93 

30 IE 


BMI 

_SUB 

9 

759 



; ELSE 

ADD 



760 



I 




761 



i 

ADD 

FRO & FR 1 


762 



# 




763 

DA95 

A2 04 


LDX 

#FMPREC— 1 

9 

764 

DA97 

18 


CLC 


i 

765 

DA98 


_ADD1 




766 

DA98 

B5 D5 


LDA 

FROM, X 

9 

767 

DA9A 

75 El 


ADC 

FR1M, X 

9 

768 

DA9C 

95 D5 


STA 

FROM, X 

9 

769 

DA9E 

CA 


DEX 


9 

770 

DA9F 

10 F7 


BPL 

_ADD1 

I 

771 



i 




772 

DAA1 

D8 


CLD 


j 

773 

DAA2 

BO 03 


BCS 

_ADD2 

9 

774 

DAA4 


_ADDEND 




775 

DAA4 

4C 00 DC 


JMP 

NORM 

9 

776 



i 




777 



i 

ADD 

IN FIND CARRY 


778 



i 




779 

DAA7 


_ADD2 




780 

DAA7 

A9 01 


LDA 

#1 

9 

781 

DAA9 

20 3A DC 


JSR 

RSHFTO 

9 

782 



i 




783 

DAAC 

A9 01 


LDA 

#01 

9 

784 

DAAE 

85 D5 


STA 

FROM 

9 

785 

DABO 

4C 00 DC 


JMP 

NORM 


786 



i 




787 



i 

SUBTRACT FR 1 FROM 

FRO 

788 



9 




789 

DAB3 


_SUB 




790 

DAB3 

A2 04 


LDX 

#FMPREC-1 

9 

791 

DAB 5 

38 


SEC 


9 

792 



i 




793 

DAB6 


_SUB 1 




794 

DAB6 

B5 D5 


LDA 

FROM, X 

9 

795 

DAB8 

F5 El 


SBC 

FR1M, X 

9 

796 

DABA 

95 D5 


STA 

FROM, X 

i 

797 

DABC 

CA 


DEX 


9 


PAGE 


22 


IF DIFFERENCE = O, ALREADY ALIGNED 
IS DIFFERENCE < # OF BYTES IN MANTISSA? 
IF NOT, HAVE RESULT IN FRO 


SHIFT TO ALIGN 
MANTISSA 


SET DECIMAL MODE 

GET FRO EXPONENT 

EOR WITH FR1 EXPONENT 

IF SIGNS DIFFERENT - SUBTRACT 


GET POINTER FOR LAST BYTE TO ADD 
CLEAR CARRY 

GET BYTE OF FRO 
ADD IN BYTE OF FR 1 
STORE 

DEC POINTER 
ADD NEXT BYTE 

CLEAR DECIMAL MODE 
IF THERE IS A CARRY, DO IT 

GO NORMALIZE 


GET 1 TIMES TO SHIFT 
GO SHIFT 

GET CARRY 
ADD IN CARRY 


GET POINTER TO LAST BYTE TO SUB 
SET CARRY 


GET FRO BYTE 
SUB FR 1 BYTE 
STORE 

DEC POINTER 


ERR LINE 

ADDR 

B 1 

B2 B3 B4 

FLOATING POINT ROUTINES 

798 

DABD 

10 

F7 


BPL 

_J5UB 1 

799 




i 



800 

DABF 

90 

04 


BCC 

„SUB2 

801 

DAC 1 

D8 



CLD 


802 

DAC2 

4C- 

00 DC 


JMP 

NORM 

803 




i 



804 




i 

TAKE 

COMPLIMENT SIGN 

805 




i 



806 

DAC 5 



„5UB2 



807 

DAC 5 

A5 

D4 


LDA 

FRO 

808 

DAC7 

49 

80 


EOR 

#$80 

809 

DAC9 

85 

D4 


STA 

FRO 

810 




i 



81 1 




i 

COMPLIMENT MANTISSA 

812 




i 



813 

DACB 

38 



SEC 


814 

DACC 

A2 

04 


LDX 

#FMPREC-1 

815 

DACE 



_SUB3 



816 

DACE 

A9 

00 


LDA 

#0 

817 

DADO 

F5 

D5 


SBC 

FROM, X 

818 

DAD2 

95 

D5 


STA 

FROM, X 

819 

DAD4 

CA 



DEX 


820 

DADS 

10 

F7 


BPL 

__SUB3 

821 




i 



822 

DAD7 

D8 



CLD 


823 

DAD8 

4C 

00 DC 


JMP 

NORM 


SUB NEXT BYTE 


IF THERE IS A BORROW DO IT 
CLEAR DECIMAL MODE 


GET EXPONENT 

CHANGE SIGN OF MANTISSA 

PUT IT BACK 


SET CARRY 

GET INDEX COUNTER 

GET ZERO 
COMPLEMENT BYTE 
STORE 

MORE TO DO 
BR IF YES 

CLEAR DECIMAL MODE 
GO NORMALIZE 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

FLOATING POINT 

ROUTINES 



824 






. PAGE 




825 





i 






826 





i 

FPMULT 

- MULTIPLY FRO 

BY FR1 

827 





# 






828 





# 

ON 

ENTRY # ARE IN 

FRO AND FR1 

829 





f 






830 





9 

ON 

EXIT 

FRO - CONTAINS PRODUCT 

831 





i 

RETURN 

WITH CC SET 



832 





i 



CARRY SET IF 

ERROR 

833 





9 



CARRY CLEAR 

IF NO ERROR 

834 





9 






835 





9 






836 





9 






837 

DADB 




FMUL 






838 





# 






839 





9 

SET 

UP 

EXPONENT 



840 





9 






841 

DADB 

A5 

D4 



LDA 


FRO 

9 

GET EXP FRO 

842 

DADD 

FO 

45 



BEQ 


MEND3 

9 

IF = 0, DONE 

843 

DADF 

A5 

EO 



LDA 


FR1 

j 

GET FR1 EXP 

844 

DAE1 

FO 

3E 



BEG 


MEND2 

9 

IF =0, ANSWER =0 

845 





9 






846 

DAE3 

20 

CF 

DC 


JSR 


MDESUP 

9 

DO COMMON SET FOR EXPONENT- 

847 

DAE6 

38 




SEC 



9 

SET CARRY 

848 

DAE7 

E9 

40 



SBC 


#$40 

9 

SUB EXCESS 64 

849 

DAE9 

38 




SEC 



9 

SET CARRY TO ADD 1 

850 

DAEA 

65 

EO 



ADC 


FR1 

9 

ADD 1 + FR1 EXP TO FRO EXP 

851 

DAEC 

30 

38 



BMI 


EROV 

9 

IF - THEN OVERFLOW 

852 





9 






853 





9 

FINISH 

MULTIPLY SET 

UP 

854 





9 






855 

DAEE 

20 

EO 

DC 


JSR 


MDSUP 

9 

DO SET UP COMMON TO DIVIDE 

856 





9 






857 





9 






858 





9 

DO 

THE 

MULTIPLY 



859 





9 






860 

DAF 1 




_FRM 






861 





9 






862 





9 

GET 

# OF TIMES TO ADD 

IN MULTIPLICAND 

863 





9 






864 

DAF1 

A5 

DF 



LDA 


FRE+FMPREC 

9 

GET LAST BYTE OF FRE 

865 

DAF3 

29 

OF 



AND 


#$0F 

9 

AND OUT HIGH ORDER NIBBLE 

866 

DAF5 

85 

F6 



STA 


ZTEMPl+i 

9 

SET COUNTER FOR LOOP CONTROL 

867 





9 






868 





9 

ADD 

IN 

FR1 



869 





9 






870 

DAF7 




_FRM1 






871 

DAF7 

C6 

F6 



DEC 


ZTEMP1+1 

9 

DEC MULT COUNTER 

872 

DAF9 

30 

06 



BMI 


_FRM2 

9 

IF - THIS LOOP DONE 

873 

DAFB 

20 

01 

DD 


JSR 


FRA10 

9 

ADD FR1 TO FRO (6 BYTES) 

874 

DAFE 

4C 

F7 

DA 


JMP 


FRM1 

9 

REPEAT 


875 

876 

877 


GET # OF TIMES TO ADD IN MULTIPLICAND * 10 


ERR LINE 

ADDR 

B 1 B2 B3 B4 

FLOATING POINT ROUTINES 


878 

DB01 


_FRM2 




879 

DB01 

A5 DF 


LDA 

FRE+FMPREC 

i 

880 

DB03 

4A 


LSRA 


i 

881 

DB04 

4A 


LSRA 


i 

882 

DB05 

4A 


LSRA 


i 

883 

DB06 

4A 


LSRA 


i 

884 

DB07 

85 F6 


STA 

ZTEMP1+1 

i 

885 



i 




886 



i 

ADD IN 

FR2 


887 



# 




888 

DB09 


_FRM3 




889 

DB09 

C6 F6 


DEC 

ZTEMP1+1 

i 

890 

DBOB 

30 06 


BMI 

_NXTB 

i 

891 

DBOD 

20 05 DD 


JSR 

FRA20 

i 

892 

DB 10 

4C 09 DB 


JMP 

_FRM3 

i 

893 



J 




894 



l 

SET UP 

FOR NEXT SET 

c 

895 



i 




896 

DB 1 3 


_NXTB 





PAGE 


25 


897 

898 

899 

900 


GET LAST BYTE OF FRE 
SHIFT OUT LOW ORDER NIBBLE 
X 
X 
X 

i SAVE AS COUNTER 


DECREMENT COUNTER 
IF DO NEXT BYTE 
ADD FR2 TO FRO <6 BYTES) 
REPEAT 


SHIFT FRO/FRE RIGHT ONE BYTE 
(THEY ARE CONTIGUOUS) 


901 

DB 1 3 

20 

62 DC 


JSR 

RSHFOE 

i 

SHIFT FRO/FRE RIGHT 

902 




# 





903 




i 

TEST 

FOR # OF BYTES 

SHIFTED 

904 




# 





905 

DB 1 6 

C6 

F5 


DEC 

ZTEMP1 

i 

DECREMENT LOOP CONTROL 

906 

DB 1 8 

DO 

D7 


BNE 

_frm 

i 

IF MORE ADDS TO DO, DO IT 

907 




i 





908 




i 

SET 

EXPONENT 



909 




i 





910 

D31A 



MDEND 





91 1 

DB 1 A 

A5 

ED 


LDA 

EEXP 

j 

GET EXPONENT 

912 

DB 1 C 

85 

D4 


STA 

FRO 

# 

STORE AS FRO EXP 

913 




i 





914 




i 





915 

DB IE 



MENDl 





916 

DB IE 

4C 

04 DC 


JMP 

N0RM1 

} 

NORMALIZE 

917 




# 





918 




# 





919 




i 





920 

DB21 



MEND2 





921 

D321 

20 

44 DA 


JSR 

ZFRO 

i 

CLEAR FRO 

922 

DB24 



MEND3 





923 

DB24 

18 



CLC 


i 

CLEAR CARRY FOR GOOD RTN 

924 

DB25 

60 



RTS 




925 




i 





926 




i 





927 




i 





928 

D326 



EROV 





929 

DB26 

38 



SEC 


i 

SET CARRY FOR ERROR ROUTINE 

930 

DB27 

60 



RTS 


# 

RETURN 


ERR LINE ADDR B1 B2 B3 B4 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 


FLOATING POINT ROUTINES 
. PAGE 

FPDIV - FLOATING POINT DIVIDE 
ON ENTRY 


PAGE 


945 

DE28 




FDI V 

946 





/ 

947 



% 


i 

948 





9 

949 

DB28 

A5 

EO 



950 

DB2A 

FO 

FA 



951 

DB2C 

A5 

D4 



952 

DB2E 

FO 

F4 



953 





i 

954 

DB30 

20 

CF 

DC 


955 





} 

956 

DB33 

38 




957 

DB34 

E5 

EO 



958 

D336 

18 




959 

DB37 

69 

40 



960 

DB39 

30 

EB 



961 





i 

962 

DB3B 

20 

EO 

DC 


963 

DB3E 

E6 

F5 



964 

DB40 

4C 

4E 

DB 


965 





t 

966 

00D9 




QTEMP 

967 

DB43 




_NXTQ 

968 






969 





i 

970 





) 

971 





/ 

972 

DB43 

A2 

00 



973 

DB45 




_N X T Q 1 

974 

DB45 

B5 

D5 



975 

DB47 

95 

D4 



976 






977 

DB49 

ES 




978 

DB4A 

EO 

OC 



979 

DB4C 

DO 

F7 



980 





/ 

981 





i 

982 





i 

983 

DB4E 




_FRD1 


ON EXIT 


FRO - DIVIDEND 
FR1 - DIVISOR 

FRO - QUOTIENT 


RETURNS WITH CC SET: 

CARRY CLEAR - ERROR 
CARRY SET •- NO ERROR 


DO DIVIDE SET YUP 


LDA 

BEQ 

LDA 

BEQ 

JSR 

SEC 

SBC 

CLC 

ADC 

BMI 

JSR 

INC 

JMP 

. EQU 


FR1 

EROV 

FRO 

MEND3 

MDESUP 


FR1 

#$40 
EROV 

MDSUP 

ZTEMP1 

_FRD1 

FRO+FMPREC 


GET FR1 EXP 
IF =0, THEN OVERFLOW 
GET EXPONENT FRO 
IF = 0, THEN DONE 

DO COMMON PART OF EXP SET UP 


; SUB FR1 EXP FROM FRO EX 

; ADD IN EXCESS 64 
; IF MINUS THEN OVERFLOW 

; DO SETUP COMMON FOR MULT 
; LOOP 1 MORE TIME FOR DIVIDE 
; SKIP SHIFT 1ST TIME THROUGH 


SHIFT FRO/FRE LEFT ONE BYTE 

(THEY ARE CONTIGUOUS) 


LDX 

LDA 

STA 

INX 

CPX 

BNE 


#0 

FRO+1, X 
FRO, X 


; GET POINTER TO BYTE TO MOVE 
; GET BYTE 

; MOVE IT LEFT ONE BYTE 


; POINT TO NEXT BYTE 
#FMPREC*2+2 ; HAVE WE DONE THEM ALL? 
NXTQ1 ; IF NOT, BRANCH 


DO DIVIDE 


984 


* 


ERR LINE ADDR B1 B2 B3 B4 FLOATING POINT ROUTINES 

* SUBTRACT FR2 (DIVISOR * 2) FROM FRE (DIVIDEND) 

966 ; 

987 s 


988 DB4E AO 05 


LDY 

#FMPREC 

i 

SET LOOP CONTROL 

989 DB 50 38 


SEC 


9 

SET CARRY 

990 DE51 F8 


SED 


9 

SET DECIMAL MODE 

991 DB 52 

_FRS2 





992 DB 52 B9 DA 00 


LDA 

FRE/ Y 

9 

GET A BYTE FROM FRE 

993 DB55 F9 E6 00 


SBC 

FR2/ Y 

9 

SUB FR2 

994 DB58 99 DA 00 


STA 

FRE/ Y 

9 

STORE RESULT 

995 D35B 88 


DEY 


9 

DEC COUNTER 

996 DB5C 10 F4 


BPL 

_FRS2 

9 

BR IF MORE TO DO 

997 DB5E D8 


CLD 


9 

CLEAR DECIMAL MODE 

998 

9 





999 DB5F 90 04 


BCC 

FAIL 

9 

IF RESULT <0 (FRE < FR2 ) BR 

1000 

9 





1001 DB61 E6 D9 


INC 

QTEMP 

9 

INCR # TIMES SUB (QUOTINT) 

1002 

9 





1003 DB63 DO E9 


BNE 

_FRD1 

9 

SUB AGAIN 

1004 

9 





1005 

9 

SUBTRACT OF FR2 

DI DN ' 

T GO 

1006 

9 





1007 DB65 

FAIL 





1008 DB65 20 OF DD 


JSR 

FRA2E 

9 

ADD FR2 BACK TO FRO 

1009 

9 





1010 

9 

SHIFT 

LAST BYTE 

OF QUOTIENT ONE NIBBLE LEFT 

101 1 

9 





1012 DB68 06 D9 


ASL 

QTEMP 

9 

SHIFT 4 BITS LEFT 

1013 DB6A 06 D9 


ASL 

QTEMP 

9 

X 

1014 DB6C 06 D9 


ASL 

QTEMP 

9 

X 

1015 DB6E 06 D9 


ASL 

QTEMP 

9 

X 

1016 DB70 

_FRD2 





1017 

9 





1018 

9 

SUBTRACT FR1 (DIVISOR) FROM FRE (DIVIDEND) 

1019 

9 





1020 

9 





1021 DB70 AO 05 


LDY 

#FMPREC 

9 

SET LOOP CONTROL 

1022 D372 38 


SEC 


9 

SET CARRY 

1023 DB73 F8 


SED 


9 

SET DECIMAL MODE 

1024 DB74 

_FRS1 





1025 DB74 B9 DA 00 


LDA 

FRE, Y 

9 

GET A BYTE FROM FRE 

1026 DB77 F9 EO 00 


SBC 

FR1, Y 

9 

SUB FR1 

1027 DB7A 99 DA 00 


STA 

FRE/ Y 

9 

STORE RESULT 

1028 DB7D 88 


DEY 




1029 DB7E 10 F4 


BPL 

_FRS1 

9 

BR IF MORE TO DO 

1030 DB80 D8 


CLD 


9 

CLEAR DECIMAL MODE 

1031 

9 





1032 DB81 90 04 


BCC 

_FAIL2 

9 

IF RESULT < 0 (FRE < FR 1 ) BR 

1033 

9 





1034 DB83 E6 D9 


INC 

QTEMP 

9 

INCR # TIMES SUB (QUOTIENT) 

1035 

9 





1036 DBS5 DO E9 


BNE 

_FRD2 

9 

SUB AGAIN 

1037 

9 





1038 

9 

SUBTRACT OF FR1 

DIDN ' 

T GO 


ERR LINE 


ADDR B1 B2 B3 B4 


FLOATING POINT ROUTINES 


PAGE 


1039 

1040 

DB87 




1041 

1042 

DB87 

20 

09 

DD 

1043 

DB8A 

C6 

F5 


1044 

DB8C 

DO 

B5 


1045 

1046 

DB8E 

20 

62 

DC 

1047 

DB91 

4C 

1A 

DB 


FAIL2 


JSR 

FRA1E 

} ADD FR1 BACK TO FRO 

DEC 

BNE 

ZTEMP1 

_NXTQ 

; DEC LOOP CONTROL 
; GET NEXT QUIOTIENT BYTE 

JSR 

JMP 

RSHFOE 

MDEND 

> SHIFT RIGHT FRO/FRE TO CLEAR EXP 
; JOIN MULT END UP CODE 


ERR LINE ADDR 


B 1 B2 B3 B4 


FLOATING POINT ROUTINES 


PAGE 


29 


1048 


. PAGE 



1049 

j 




1050 

i 

GETCHAR - TEST INPUT CHARACTER 

1051 

i 




1052 

j 

ON ENTRY INBUFF 

- POINTS TO BUFFER WITH INPUT 

1053 

i 


CIX - 

POINTS TO CHAR IN BUFFER 

1054 

I 




1055 

i 

ON EXIT CIX - 

POINTS TO NEXT CHAR 

1056 

i 


CC - CARRY CLEAR IF CHAR IS NUMBER 

1057 

i 


CARRY SET IF CHAR NOT NUMBER 

1058 

i 




1059 DB94 

GETCHAR 



1060 DB94 20 AF DB 


JSR 

TSTNUM 

i GO TEST FOR NUMBER 

1061 DB97 A4 F2 


LDY 

CIX 

i GET CHARACTER INDEX 

1062 DB99 90 02 


BCC 

GCHR1 

i IF CHAR = NUM, SKIP 

1063 

i 




1064 DB9B B 1 F3 


LDA 

( INBUFF), Y i GET CHARACTER 

1065 

i 




1066 DB9D 

_GCHR 1 




1067 DB9D C8 


INY 


; POINT TO NEXT CHAR 

1068 DB9E 84 F2 


STY 

CIX 

; SAVE INDEX 

1069 DBAO 60 


RTS 



1070 

# 




1071 

; SKPBLK- 

-SKIP BLANKS 


1072 

i 

STARTS 

AT CIX AND 

SCANS FOR NON BLANKS 

1073 

# 




1074 DBA1 

SKPBLK 




1075 DBA1 A4 F2 


LDY 

CIX 

; GET CIX 

1076 DBA3 A9 20 


LDA 

#$20 

; GET A BLANK 

1077 

# 




1078 DBA5 D1 F3 

__SB 1 

CMP 

( INBUFF), Y ; IS CHAR A BLANK 

1079 D3A7 DO 03 


BNE 

_ SB RTS 

; BR IF NOT 

1080 DBA9 C8 


INY 


; INC TO NEXT 

1081 DBAA DO F9 


BNE 

_SB 1 

; GO TEST 

1082 

# 




1083 DBAC 84 F2 

_SBRTS 

STY 

CIX 

; SET NON BLANK INDEX 

1084 DBAE 60 


RTS 


; RETURN 

1085 

/ 




1086 

; TSTNUM-TEST CHAR AT CIX 

FOR NUM 

1087 

i 

- RTNS 

CARRY SET 

IF NUM 

1088 DBAF 

TSTNUM 




1089 DBAF A4 F2 


LDY 

CIX 

; GET INDEX 

1090 DBB1 B 1 F3 


LDA 

( INBUFF), 

Y ; AND GET CHAR 

1091 DBB3 38 


SEC 



1092 DBB4 E9 30 


SBC 

#$30 

; SUBTRACT ASCLT ZERO 

1093 DBB6 90 18 


BCC 

_TSNFAIL 

; BR CHARCASCLT ZERO 

1094 DBB8 C9 OA 


CMP 

#$0A 

; TEST GT ASCLT 9 

1095 DBBA 60 


RTS 


; DONE 




ERR LINE ADDR B1 B2 B3 B4 

1096 

1097 

1098 

1099 

1100 
1 101 
1102 


1 121 
1 122 
1 123 

DBD2 




1124 

DBD2 

20 

94 

DB 

1 125 

DBD5 

90 

OB 


1126 

DBD7 

C9 

2E 


1127 

DBD9 

DO 

F4 


1 128 

DBDB 




1 129 

DBDB 

20 

94 

DB 

1130 

DBDE 

90 

02 


1 131 

1 132 

1133 

DBEO 

BO 

ED 


1 134 

DBE2 




1 135 

DBE2 

68 



1136 

DBE3 

85 

F2 


1137 

DBE5 

18 



1 138 

DBE6 

60 




r LUA I I NG POINT ROUTINES 
. PAGE 

_TSTCHAR - TEST TO SEE IF THIS CAN BE A NUMBER 


PAGE 


30 


1 103 

DBBB 



_TSTCHAR 


1104 

DBBB 

A5 

F2 

LDA 

CIX 

1105 

DBBD 

48 


PHA 


1 106 

DBBE 

20 

94 DB 

JSR 

_GETCHAR 

1 107 

DBC 1 

90 

IF 

BCC 

_RTPASS 

1 108 




j 


1 109 

DBC3 

C9 

2E 

CMP 


1 1 10 

DBC5 

FO 

14 

BEQ 

_TSTN 

1111 

DBC7 

C9 

2B 

CMP 

# ' + ' 

1 112 

DBC9 

FO 

07 

BEQ 

_TSTN1 

1113 

DBCB 

C9 

2D 

CMP 

# ' 

1 114 

DBCD 

FO 

03 

BEQ 

_TSTN1 

1 115 




j 


1 1 16 




i 


1117 

DBCF 



„RTFAIL 


1 118 

DBCF 

68 


PLA 


1119 

DBDO 

38 


_TSNFAIL SEC 


1 120 

DBD1 

60 


RTS 



ON EXIT CC - CARRY SET IF NOT A # 

CARRY CLEAR IF A # 


GET INDEX 
SAVE IT 
GET CHAR 

IF = #8 RETURN PASS 
IF = D. P. , OK SO FAR 
IF = +8 OK SO FAR 
IF = -8 OK SO FAT 


TSTN1 


TSTN 


RTPASS 


PLA 

STA 

CLC 

RTS 


CIX 


; CLEAR STACK 
; SET FAIL 


JSR 

_GETCHAR 

GET CHAR 


BCC 

_RTPASS 

IF #, 

RETURN 

PASS 

CMP 


IS IT 

D. P. 


BNE 

_RTFAIL 

IF NOT i RETURN FAIL 

JSR 

_GETCHAR 

ELSE 

GET NEXT 

CHAR 

BCC 

_RTPASS 

IF #, 

RETURN 

PASS 

BCS 

RTFAIL 

ELSE, 

RETURN 

FAIL 


RESTORE CIX 
X 

CLEAR CARRY 
RETURN PASS 


# 


ERR LINE 


ADDR 


B 1 B2 B3 B4 


FLOATING POINT ROUTINES 


PAGE 


1139 

1140 




i 

. PAGE 





1141 




i 

NIBSHO 

~ SHIFT 

FRO 

ONE 

NIBBLE LEFT 

1142 




i 






1 143 




» 

NIBSH2 

- SHIFT 

FR2 

ONE 

NIBBLE LEFT 

1144 




i 






1145 

DBE7 



NIBSH2 






1146 

DBE7 

A2 

E7 


LDX 

#FR2+ 1 


i 

POINT TO 1ST MANTISSA BYTE 

1147 

1148 

DBE9 

DO 

02 


BNE 

JMIB1 




1149 

DBEB 



NIBSHO 






1150 

DBEB 

A2 

D5 


LDX 

#FROM 


i 

POINT TO MANTISSA OF FRO 

1151 

DBED 



_NIB 1 






1152 

DBED 

AO 

04 


LDY 

#4 


\ 

GET # OF BITS TO SHIFT 

1153 

DBEF 



_N IBS 






1154 

DBEF 

18 



CLC 



» 

CLEAR CARRY 

1155 

DBFO 

36 

04 


ROL 

4j X 


9 

ROLL 

1156 

DBF2 

36 

03 


ROL 

3, X 


9 

X 

1157 

DBF4 

36 

02 


ROL 

2, X 


9 

X 

1158 

D3F6 

36 

01 


ROL 

1/ X 


9 

X 

1159 

DBF8 

36 

00 


ROL 

0, X 


9 

X 

1 160 
1161 

DBFA 

26 

EC 

9 

ROL 

FRX 


9 

SAVE SHIFTED NIBBLE 

1162 

DBFC 

88 



DEY 



9 

DEC COUNT 

1163 

DBFD 

DO 

FO 


BNE 

_NIBS 


9 

IF NOT = 0, REPEAT 

1164 

DBFF 

60 



RTS 






ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

FLOATING POINT 

ROUTINES 



1 165 






. PAGE 




1 166 





9 





1167 





i 

NORM - 

NORMMALI ZE FLOATING POINT NUMBER 

1168 





> 





1169 

DC00 




NORM 





1 170 

DC 00 

A2 

00 



LDX 

#0 

9 

GET ZERO 

1171 

DC 02 

86 

DA 



STX 

FRO+FPREC 

9 

FOR ADD NORM SHIFT IN A ZERO 

1 172 

DC04 




N0RM1 





1173 

DC04 

A2 

04 



LDX 

#FMPREC-1 

I 

GET MAX # OF BYTES TO SHIFT 

1 174 

DC06 

A5 

D4 



LDA 

FRO 

# 

GET EXPONENT 

1175 

DC08 

FO 

2E 



BEQ 

JMDONE 

9 

IF EXP=0, # =0 

1176 

DCOA 




_N0RM 





1177 

DCOA 

A5 

D5 



LDA 

FROM 

9 

GET 1ST BYTE OF MANTISSA 

1178 

DCOC 

DO 

1A 



BNE 

_TSTB I G 

9 

IF NOT = 0 THEN NO SHIFT 

1179 





9 





1 180 





9 

SHIFT 1 

BYTE LEFT 



1 181 





9 





1 182 

DCOE 

AO 

00 



LDY 

#0 

9 

GET INDEX FOR 1ST MOVE BYTE 

1 183 

DC 10 




_NSH 





1 184 

DC 10 

B9 

D6 

00 


LDA 

FROM+ 1 , Y 

9 

GET MOVE BYTE 

1 185 

DC 13 

99 

D5 

00 


STA 

FROM, Y 

9 

STORE IT 

1186 

DC 16 

C8 




INY 




1187 

DC 17 

CO 

05 



CPY 

#FMPREC 

9 

ARE WE DONE 

1188 

DC 19 

90 

F5 



BCC 

_NSH 

9 

IF NOT SHIFT AGAIN 

1189 





9 





1 190 





9 





1 191 





9 

DECREMENT EXPONENT 



1 192 





9 





1 193 

DC IB 

C6 

D4 



DEC 

FRO 

9 

DECRIMENT EXPONENT 

1194 





9 





1195 

DC ID 

CA 




DEX 


9 

DEC COUNTER 

1196 

DC 1 E 

DO 

EA 



BNE 

_NQRM 

9 

DO AGAIN IF NEEDED 

1 197 





9 





1198 





9 





1 199 





9 





1200 

DC20 

A5 

D5 



LDA 

FROM 

9 

IS MANTISSA STILL 0 

1201 

DC22 

DO 

04 



BNE 

TSTBIG 

9 

IF NOT, SEE IF TO BIG 

1202 

DC24 

85 

D4 



STA 

FRO 

9 

ELSE ZERO EXP 

1203 

DC26 

18 




CLC 




1204 

DC27 

60 




RTS 




1205 





9 





1206 

DC28 




_TSTBIG 





1207 

DC 28 

A5 

D4 



LDA 

FRO 

9 

GET EXPONENT 

1208 

DC2A 

29 

7F 



AND 

#$7F 

9 

AND OUT SIGN BIT 

1209 

DC2C 

C9 

71 



CMP 

#49+64 

9 

IS IT < 49+64? 

1210 

DC2E 

90 

01 



BCC 

_TSTUND 

9 

IF YES, TEST UNDERFLOW 

121 1 

DC 30 

60 




RTS 


9 

SO RETURN 

1212 

DC31 




_TSTUND 





1213 

DC 31 

C9 

OF 



CMP 

#-49+64 

9 

IS IT >=-49+64? 

1214 

DC 33 

BO 

03 



BCS 

NDONE 

9 

IF YES, WE ARE DIONE 

1215 

DC35 

20 

44 

DA 


JSR 

ZFRO 

9 

ELSE # IS ZERO 

1216 





9 





1217 

DC38 




_ND0NE 





1218 

DC 38 

18 




CLC 


9 

CLEAR CARRY FOR GOOD RETURN 



ERR LINE ADDR B1 B2 B3 B4 


1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 


DC 3 A 
DC 3 A 
DC3C 

DC3E 

DC3E 


A2 D4 
DO 02 


EO 


1236 

DC40 



1237 

DC40 

86 

F9 

1238 

DC42 

85 

F7 

1239 

DC44 

85 

FS 

1240 




1241 

DC46 



1242 

DC 46 

AO 

04 

1243 

DC48 



1244 

DC48 

B5 

04 

1245 

DC4A 

95 

05 

1246 

DC4C 

CA 


1247 

DC4D 

88 


1248 

DC4E 

DO 

F8 

1249 

DC 50 

A9 

00 

1250 

DC 52 

95 

05 

1251 




1252 

DC 54 

A6 

F9 

1253 

DC 56 

C6 

F7 

1254 

DC 58 

DO 

EC 

1255 




1256 




1257 




1258 

DC5A 

B5 

00 

1259 

DC 5C 

18 


1260 

DC5D 

65 

F8 

1261 

DC5F 

95 

00 

1262 

DC 61 

60 



FLOATING POINT ROUTINES 
. PAGE 

RSHFTO - SHIFT FRO RIGHT/ I NCR EXPONENT 
RSHFT1 - SHIFT FR 1 RIGHT/INCR EXPONENT 
ON ENTRY A - # OF PLACES TO SHIFT 


PAGE 


34 


RSHFTO 


RSHFT1 


RSH 


LDX 

BNE 


LDX 


#FRO 

RSH 


#FR1 


LDY 

LDA 

STA 

DEX 

DEY 

BNE 

LDA 

STA 

LDX 

DEC 

BNE 


ZTEMP3 

ZTEMP4 

ZTEMP4+1 


#FMPREC— 1 


_RSH1 
#0 
5/ X 

ZTEMP3 
Z TEMP 4 
RSH2 


FIX EXPONENT 
LDA 0, X 


ZTEMP4+1 
0, X 


POINT TO FRO 


POINT TO FR 1 


SAVE FR POINTER 

SAVE # OF BYTES TO SHIFT AS COUNTER 
SAVE FOR LATER 


GET # OF BYTES TO MOVE EACH LOOP 

GET CHAR 

STORE CHAR 

POINT TO NEXT BYTE 

DEC LOOP CONTROL 

IF MORE TO MOVE, DO IT 

GET 1ST BYTE 

STORE IT 

GET FR POINTER 

DO WE NEED TO SHIFT AGAIN'? 

IF YES, DO IT 


GET EXPONENT 

SUB # OF SHIFTS 
SAVE NEW EXPONENT 


LINE 

ADDR 

B 1 

B2 B3 B4 

FLOATING POINT 

ROUTINES 

1263 





. PAGE 


1264 




i 



1265 




# 

RSHFOE- 

SHIFT FRO/FRE 

1266 




j 

(THEY ARE CONTIGUOUS) 

1267 




j 



1268 

DC 62 



RSHFOE 



1269 

DC 62 

A2 

OA 


LDX 

#FMPREC*2 ; 

1270 




9 

i 



1271 

DC 64 



JMXTBl 



1272 

DC64 

B5 

D4 


LDA 

FRO# X } 

1273 

DC 66 

95 

D5 


STA 

FRO+ 1 # X i 

1274 




t 



1275 

DC 68 

CA 



DEX 

i 

1276 

DC69 

10 

F9 


BPL 

JMXTBl ; 

1277 

DC6B 

A9 

00 


LDA 

#0 ; 

1278 

DC6D 

85 

D4 


STA 

FRO ; 

1279 

DC6F 

60 



RTS 



PAGE 


35 


1 BYTE RIGHT 


GET LOOP CONTROL 


GET A BYTE 
MOVE IT OVER 1 

DEC COUNTER 
MOVE NEXT BYTE 
GET ZERO 
SHIFT IT IN 


ERR LINE 

ADDR 

B 1 

B2 B3 B4 FLOATING POINT ROUTINES PAGE 

1280 




. PAGE 


1281 






1282 




_CVFRO 

- CONVERT EACH BYTE IN FRO TO 2 CHARACTERS 

1 283 





IN LBUFF 

1284 






1285 




ON ENTRY A - DECIMAL POINT POSITION 

1286 






1287 






1288 

DC70 


CVFRO 



1289 

DC 70 

85 

F7 

STA 

ZTEMP4 ; SAVE DECIMAL POSITION 

1290 



i 



1291 

DC72 

A2 

00 

LDX 

#0 ; SET INDEX INTO FROM 

1292 

DC74 

AO 

00 

LDY 

#0 ; SET INDEX INTO OUTPUT LINE (LBUFF) 

1293 



i 



1294 



# 

CONVERT A BYTE 

1295 



i 



1296 

DC 76 


CVBYTE 



1297 

DC76 

20 

93 DC 

JSR 

_TSTDP ; PUT IN D. P. NOW? 

1298 

DC79 


_CVB 1 



1299 

DC 79 

38 


SEC 

; DECREMENT DECIMAL POSITION 

1300 

DC 7 A 

E9 

01 

SBC 

#1 ; X 

1301 

DC7C 

85 

F7 

STA 

ZTEMP4 ; SAVE IT 

1302 






1303 




DO 1ST 

DIGIT 

1304 






1305 

DC7E 

B5 

D5 

LDA 

FROM, X ; GET FROM FRO 

1306 

DC 80 

4A 


LSRA 

i SHIFT OUT LOW ORDER BITS 

1307 

DC81 

4A 


LSRA 

; TO GET 1ST DIGIT 

1308 

DC 82 

4A 


LSRA 

i X 

1309 

DC83 

4A 


LSRA 

; X 

1310 

DC84 

20 

9D DC 

JSR 

_STNUM } GO PUT # IN BUFFER 

1311 






1312 




DO SECOND DIGIT 

1313 






1314 

DC87 

B5 

D5 

LDA 

FROM, X ; GET NUMBER FROM FRO 

1315 

DC89 

29 

OF 

AND 

#*0F i AND OUT HIGH ORDER BITS 

1316 

DC8B 

20 

9D DC 

JSR 

_STNUM ; GO PUT # IN BUFFER 

1317 



i 



1318 

DC8E 

E8 


I NX 

i I NCR FRO POINTER 

1319 

DC8F 

EO 

05 

CPX 

#FMPREC ; DONE LAST FRO BYTE? 

1320 

DC 91 

90 

E3 

BCC 

_CVB YTE ; IF NOT, MORE TO DO 

1321 






1322 




PUT IN 

DECIMAL POINT NOW? 

1323 






1324 

DC93 


TSTDP 



1325 

DC 93 

A5 

F7 

LDA 

ZTEMP4 ; GET DECIMAL POSITION 

1326 

DC95 

DO 

05 

BNE 

_TST1 ; IF NOT = 0 RTN 

1327 

DC 97 

A9 

2E 

LDA 

' i GET ASCII DECIMAL POINT 

1328 

DC 99 

20 

9F DC 

JSR 

_STCHAR ; PUT D. P. IN BUFFER 

1329 

DC9C 


_TST 1 



1330 

DC9C 

60 


RTS 



ERR LINE 


ADDR 


B 1 B2 B3 B4 


FLOATING POINT ROUTINES 


1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 


1341 

DC 9D 



_STNUM 

1342 

DC9D 

09 

30 


1343 

DC 9F 



_STCHAR 

1344 

DC9F 

99 

80 05 


1345 

DC A2 

C8 



1346 

DCA3 

60 




. PAGE 

_STNUM - PUT ASCII NUMBER IN LBUFF 

ON ENTRY A - DIGIT TO BE CONVERTED TO ASCII 

AND PUT IN LBUFF 
Y - INDEX IN LBUFF 

STCHAR - STORES CHAR IN A IN LBUFF 


ORA 

#$30 

; CONVERT TO 

ASCII 

STA 

LBUFF, Y 

; PUT IN LBUFF 

I NY 


i I NCR LBUFF 

POINTER 

RTS 





ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

FLOATING POINT 

ROUTINES 


PAGE 

1347 






. PAGE 




1348 





i 





1349 





9 

_FNZERO 

- FIND LAST 

NON-ZERO CHAR IN LBUFF 


1350 





i 





1351 





j 

ON EXIT 

A - LAST 

CHAR 


1352 





9 


X - POINT 

TO LAST CHAR 


1353 





9 





1354 

DCA4 




_FNZERO 





1355 

DCA4 

A2 

OA 



LDX 

#10 

; POINT TO LAST CHAR IN LBUFF 


1356 





9 





1357 

DCA6 




_FN3 





1358 

DCA6 

BD 

80 

05 


LDA 

LBUFF, X 

; GET THE CHARACTER 


1359 

DCA9 

C9 

2E 



CMP 

#'. ' 

i IS IT DECIMAL? 


1360 

DCAB 

F0 

07 



BEQ 

_FN1 

; IF YES, BR 


1361 

DCAD 

C9 

30 



CMP 

# '0 ' 

; IS IT ZERO? 


1362 

DCAF 

DO 

07 



BNE 

_FN2 

; IF NOT, BR 


1363 

DCB 1 

CA 




DEX 


; DECREMENT INDEX 


1364 

DCB2 

DO 

F2 



BNE 

_FN3 

; UNCONDITIONAL BR 


1365 





9 





1366 

DCB4 




_FN1 





1367 

DCB4 

CA 




DEX 


; DECREMENT BUFFER INDEX 


1368 

DCB 5 

BD 

80 

05 


LDA 

LBUFF, X 

; GET LAST CHAR 


1369 

DCB8 




_FN2 





1370 

DCB8 

60 




RTS 





ERR LINE 

ADDR 

B 1 

B2 

B3 B4 


FLOATING POINT 

ROUTINES 


PAGE 

1371 






. PAGE 




1 372 





i 





1373 





* 

_GETDIG 

~ GET NEXT DIGIT FROM FRO 



1374 





i 





1375 





i 

ON ENTRY 

FRO - # 



1376 





} 





1377 





i 

ON EXIT 

A - DIGIT 



1378 





i 





1379 





i 





1380 

DCB9 





GETDIG 




1381 

DCB9 

20 

EB 

DB 


JSR 

NIBSHO ; SHIFT FRO LEFT ONE 

NIBBLE 


1382 





i 





1383 

DCBC 

A5 

EC 



LDA 

FRX ; GET BYTE CONTAINING 

SHIFTED 

NIBBLE 

1384 

DCBE 

29 

OF 



AND 

#*0F ; AND OUT HIGH ORDER 

NIBBLE 


1385 

DCCO 

60 




RTS 





PAGE 


ERR LINE 

ADDR 

B 1 

B2 

1386 




1387 




1388 




1389 




1390 

DCC 1 



1391 

DCC 1 

38 


1392 

DCC2 

A5 

F3 

1393 

DCC 4 

E9 

01 

1394 

DCC6 

85 

F3 

1395 

DCC8 

A5 

F4 

1396 

DCCA 

E9 

00 

1397 

DCCC 

85 

F4 

1398 

DCCE 

60 



FLOATING POINT ROUTINES 


. PAGE 

__DEC INB - DECREMENT INBUFF 


DEC INB 


SEC 


LDA 

INBUFF 

SBC 

#1 

STA 

INBUFF 

LDA 

I NBUFF+ 1 

SBC 

#0 

STA 

RTS 

I NBUFF+ 1 


i SUBTRACT ONE FROM INBUFF 
i X 
i X 
i X 
i X 
; X 
i X 


ERR LINE 

ADDR 

B 1 

B2 B3 B4 

FLOATING POINT 

1399 




. PAGE 

1400 




i 

1401 




i MDESUP 

1402 




# 

1403 




; ON EXIT 

1404 




i 

1405 




i 

1406 




i 

1407 

DCCF 



MDESUP 

1408 

DCCF 

A5 

D4 

LDA 

1409 

DCD1 

45 

EO 

EOR 

1410 

DCD3 

29 

80 

AND 

1411 

DCD5 

85 

EE 

STA 

1412 




i 

1413 

DCD7 

06 

EO 

ASL 

1414 

DCD9 

46 

EO 

LSR 

1415 

DCDB 

A5 

D4 

LDA 

1416 

DCDD 

29 

7F 

AND 

1417 

DCDF 

60 


RTS 


ROUTINES 


PAGE 


41 


COMMON SET UP FOR MULTPLY & DIVIDE EXPONENT 

FR1 - FR1 EXP WITH OUT SIGN 
A - FRO EXP WITHOUT SIGN 
FRSIGN - SIGN FOR QUOTIENT 


FRO 

I 

GET FRO EXPONENT 

FR1 

1 

GET FR1 EXPONENT 

#*80 

i 

AND OUT ALL BUT SIGN BIT 

FRSIGN 

i 

SAVE SIGN 

FR1 

i 

SHIFT OUT SIGN IN FR1 EXP 

FR1 

i 

RESTORE FR1 EXP WITHOUT SIGN 

FRO 

i 

GET FRO EXP 

#*7F 

i 

AND OUT SIGN BIT 


FLOATING POINT ROUTINES 


ERR LINE ADDR 


B 1 B2 B3 B4 


PAGE 42 


1418 


1419 


1420 


1421 


1422 


1423 


1424 


1425 


1426 

DCEO 

1427 

DCEO 

1428 

DCE2 

1429 

DCE4 

1430 

DCE6 

1431 

DCE8 

1432 


1433 


1434 

DCEA 

1435 


1436 

DCED 

1437 

DCFO 

1438 

DCF2 

1439 

DCF4 

1440 


1441 

DCF6 

1442 

DCF8 

1443 


1444 

DCFA 

1445 

DCFD 

1446 


1447 

DDOO 

1448 



05 

EE 

85 

ED 

A9 

00 

85 

D4 

85 

EO 


20 

28 

DD 

20 

E7 

DB 

A5 

EC 


29 

OF 


85 

E6 


A9 

05 


85 

F5 


20 

34 

DD 

20 

44 

DA 

60 




i 

i 

i 

i 

• 

> 

i 


MDSUP 


i 

i 

i 


i 


. PAGE 

MDSUP - COMMON SET UP FOR MULTIPLY AND DIVIDE 

ON ENTRY A - EXPONENT 

CC - SET BY ADD OR SUB TO GET A 


ORA 

FRSIGN 

i 

OR IN SIGN BIT 

STA 

EEXP 

i 

SAVE EXPONENT FOR LATER 

LDA 

#0 

y 

» 

CLEAR A 

STA 

FRO 

t 

< 

CLEAR FRO EXP 

STA 

FR1 

i 

CLEAR FRO EXP 


JSR 

MVFR12 

* 

MOVE FR1 TO FR2 


JSR 

NIBSH2 

i 

SHIFT FR2 1 NIBBLE 

LEFT 

LDA 

FRX 

i 

GET SHIFTED NIBBLE 


AND 

#*0F 

J 

AND OUT HIGH ORDER 

NIBBLE 

STA 

FR2 

j 

STORE TO FINISH SHIFT 

LDA 

#FMPREC 

i 

SET LOOP CONTROL 


STA 

ZTEMP1 

i 

X 


JSR 

MVFROE 

§ 

* 

MOVE FRO TO FRE 


JSR 

ZFRO 

i 

CLEAR FRO 



RTS 


i 


ERR LINE ADDR 


B 1 B2 B3 B4 


FLOATING POINT ROUTINES 


PAGE 


43 


1449 





. PAGE 





1450 




i 






1451 




J 

FRA 1 0 

- ADD FR1 

TO FRO 

<6 BYTES) 

1452 




) 






1453 




i 

FRA20 

- ADD FR2 

TO FRO 

(6 BYTES) 

1454 




i 






1455 




9 

FRA 1 E 

~ ADD FR1 

TO FRE 


1456 




9 






1457 




9 

FRA2E 

- ADD FR2 

TO FRE 


1458 




9 






1459 

DD01 



FRA10 






1460 

DD01 

A2 

D9 


LDX 

#FR0+FMPREC 

9 

POINT TO LAST BYTE OF SUM 

1461 

DD03 

DO 

06 


BNE 

_F 1 




1462 




9 






1463 

DD05 



FRA20 






1464 

DD05 

A2 

D9 


LDX 

#FRO+FMPREC 



1465 

DD07 

DO 

08 


BNE 

_F2 




1466 




9 






1467 

DD09 



FRA1E 






1468 

DD09 

A2 

DF 


LDX 

#FRE+FMPREC 



1469 

DDOB 



_F 1 






1470 

DDOB 

AO 

E5 


LDY 

#FR 1+FMPREC 



1471 

DDOD 

DO 

04 


BNE 

_FRA 




1472 

DDOF 



FRA2E 






1473 

DDOF 

A2 

DF 


LDX 

#FRE+FMPREC 



1474 

DD1 1 



_F2 






1475 

DD1 1 

AO 

EB 


LDY 

#FR2+FMPREC 



1476 




i 






1477 




9 






1478 

DD13 



__FRA 






1479 

DD13 

A9 

05 


LDA 

#FMPREC 


9 

GET VALUE FOR LOOP CONTROL 

1480 

DD1 5 

85 

F7 


STA 

ZTEMP4 


9 

SET LOOP CONTROL 

1481 

DD17 

18 



CLC 



9 

CLEAR CARRY 

1482 

DD18 

F8 



SED 



9 

SET DECIMAL MODE 

1483 

DD19 



_FRA1 






1484 

DD19 

B5 

00 


LDA 

0, X 


9 

GET 1ST BYTE OF 

1485 

DD1B 

79 

00 00 


ADC 

0, Y 


9 

ADD 

1486 

DD1E 

95 

00 


STA 

0, X 


9 

STORE 

1487 

DD20 

CA 



DEX 



9 

POINT TO NEXT BYTE 

1488 

DD21 

88 



DEY 



9 

POINT TO NEXT BYTE 

1489 

DD22 

C6 

F7 


DEC 

Z TEMP 4 


9 

DEC COUNTER 

1490 

DD24 

10 

F3 


BPL 

_FRA1 


9 

IF MORE TO DO, DO IT 

1491 

DD26 

D8 



CLD 



9 

CLEAR DECIMAL MODE 

1492 

DD 27 

60 



RTS 






ERR LINE ADDR 01 02 03 B4 FLOATING POINT ROUTINES 


1493 

1494 
1493 

1496 

1497 

1498 

1499 
1300 
1501 

1302 

1303 

1304 
1303 

1306 

1307 
1508 

1309 

1310 

1311 

1312 

1313 

1314 
1313 
1516 

1317 

1318 

1319 

1320 

1321 


0028 

0028 AO 03 
D02A 

DD2A B9 EO 00 
DD2D 99 E6 00 

DD30 88 
DD31 10 F7 
0033 60 


i 


i 

i 


MVFR12 


MV2 


t 


i 

i 

i 

i 


. PAGE 



MVFR12 

- MOVE FR1 

TO FR2 

LDY 

#FMPREC 

i SET COUNTER 

LDA 

STA 

FR1, Y 
FR2, Y 

i GET A BYTE 
t STORE IT 

DEY 

BPL 

RTS 

_MV2 

i DEC COUNTER 
i IF MORE TO MOVE, 






j 

l 

i 

MVFROE 

MVFROE 

- MOVE FRO 

DD34 






DD34 

D036 

AO 

03 


_MV1 

LDY 

#FMPREC 

D036 

B9 

D4 

00 


LDA 

FRO, Y 

DD39 

99 

OA 

00 

l 

STA 

FRE, Y 

DD3C 

88 



DEY 


DD3D 

10 

F7 



BPL 

_MV1 

DD3F 

60 




RTS 



TO FRE 
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ERR LINE ADDR 


B 1 B2 B3 B4 


polynomial evaluation 


PAGE 45 


1522 




. PAGE 

'POLYNOMAL 

EVALUATION' 

1 DcJ 




i 

Y=A(0)+A< 1 )*X+A(2>*X*"«-2+. . . +A ( N ) ■*X*-*N, N>0 

1 524 




i 

= < ( . . 

. ( A(N)*X+A(N- 

1 ) >*X + . . . +A(2) )*X+A< 1 ) )*X+A 

1 525 




i 

INPUT: 

X IN FRO, N+l IN A-REG 

1 526 




i 

REG <X 

, Y ) ~>A ( N ) . . . A ( 0 ) 

1527 




} 

OUTPUT 

Y IN FRO 


1528 




i 

USES FPTR2, PLYCNTi 

PLYARG 

1529 




i 

CALLS 

FSTOR, FMOVE, 

FLD1R, FADD, FMUL 

1530 

DD40 

86 FE 


PLYEVL 

STX 

FPTR2 

i SAVE POINTER TO COEFF'S 

1531 

DD42 

84 FF 



STY 

FPTR2+1 


1532 

DD44 

85 EF 



STA 

PLYCNT 


1533 

DD46 

A2 EO 



LDX 

#. LOW. PLYARG 

1534 

DD48 

AO 05 



LDY 

#. HIGH. PLYARG 

1535 

DD4A 

20 A7 

DD 


JSR 

FSTOR 

i SAVE ARG 

1536 

DD4D 

20 B6 

DD 


JSR 

FMOVE 

; ARG~>FR 1 

1537 

DD50 

A6 FE 



LDX 

FPTR2 


1538 

DD52 

A4 FF 



LDY 

FPTR2+1 


1539 

DD54 

20 89 

DD 


USR 

FLDOR 

;COEF->FRO (INIT SUM) 

1540 

DD57 

C6 EF 



DEC 

PLYCNT 


1541 

DD59 

FO 2D 



BEG 

PLYOUT 

; DONE ? 

1542 

DD5B 

20 DB 

DA 

P LYE VI 

JSR 

FMUL. 

; SUM * ARG 

1543 

DD5E 

BO 28 



BCS 

PLYOUT 

i 0 'FLOW 

1544 

DD60 

18 



CLC 



1545 

DD61 

A5 FE 



LDA 

FPTR2 

; BUMP COEF POINTER 

1546 

DD63 

69 06 



ADC 

#FPREC 


1547 

DD65 

85 FE 



STA 

FPTR2 


1548 

DD67 

90 06 



BCC 

PLYEV2 


1549 

DD 69 

A5 FF 



LDA 

FPTR2+1 

i ACROSS PAGE 

1550 

DD6B 

69 00 



ADC 

#0 


1551 

DD6D 

85 FF 



STA 

FPTR2+1 


1552 

DD6F 

A6 FE 


PLYEV2 

LDX 

FPTR2 


1553 

DD7 1 

A4 FF 



LDY 

FPTR2+1 


1554 

DD73 

20 98 

DD 


JSR 

FLD1R 

; GET NEXT COEF 

1555 

DD76 

20 66 

DA 


JSR 

FADD 

; SUM-H-ARG + COEF 

1556 

DD79 

BO OD 



BCS 

PLYOUT 

; O' FLOW 

1557 

DD7B 

C6 EF 



DEC 

PLYCNT 


1558 

DD7D 

FO 09 



BEG 

PLYOUT 

; DONE ? 

1559 

DD7F 

A2 EO 



LDX 

#. LOW. PLYARG 

1560 

DD81 

AO 05 



LDY 

#. HIGH. PLYARG 

1561 

DD83 

20 98 

DD 


JSR 

FLD1R 

; GET ARG AGAIN 

1562 

DD86 

30 D3 



BMI 

PLYEV1 

; < =JMP ) 

1563 

DD88 

60 


PLYOUT 

RTS 




ERR LINE 


ADDR 


B1 B2 B3 B4 


FLOATING LOAD/STORE 


PAGE 46 


1564 

1565 

1 566 DD89 86 FC 

1567 DD8B 84 FD 

1568 DD8D AO 05 

1569 DD8F B1 FC 

1570 DD91 99 D4 00 

1571 DD94 88 

1572 DD95 10 F8 

1573 DD97 60 

1574 

1575 

1576 DD98 86 FC 

1577 DD9A 84 FD 

1578 DD9C AO 05 

1579 DD9E B 1 FC 

1 580 DDAO 99 EO 00 

1581 DDA3 88 

1582 DDA4 10 F8 

1583 DDA6 60 

1584 

1585 

1586 DDA7 86 FC 

1587 DDA9 84 FD 

1588 DDAB AO 05 

1589 DDAD B9 D4 00 

1590 DDBO 91 FC 


1591 

DDB2 

88 


1592 

DDB3 

10 

F8 

1593 

DDB5 

60 


1594 




1595 




1596 




1597 

DDB6 



1598 

DDB6 

A2 

05 

1599 

DDB8 

B5 

D4 

1600 

DDBA 

95 

EO 

1601 

DDBC 

CA 


1602 

DDBD 

10 

F9 

1603 

DDBF 

60 



FLDOR 

FLDOP 

FLD01 


i 

} 

FLD1R 

FLD1P 

FLD11 


FSTOR 

FSTOP 

FST01 


i 

i 


PAGE 'FLOATING LOAD/STORE' 

LOAD FRO FROM (X,Y) X=LSB, Y=MSB, USES FLPTR (PGO) 


STX 

STY 

LDY 

LDA 

STA 

DEY 

GPL 

RTS 


FLPTR 
FLPTR+1 
#FPREC-1 
(FLPTR), Y 
FRO, Y 

FLD01 


i SET FLPTR => (X,Y) 

; # BYTES ENTER HERE W/FLPTR SET 
i MOVE 


COUNT & LOOP 


LOAD FR1 FROM (X, Y) 
STX FLPTR 

STY FLPTR+1 

LDY #FPREC-1 

LDA (FLPTR), Y 

STA FR 1 , Y 

DEY 

BPL FLD1 1 

RTS 


OR (FLPTR) 

; FLPTR=>< X, Y) 

i # BYTES ENTER W/FLPTR SET 
i MOVE 


; COUNT ?/ LOOP 


STORE FRO IN (X,Y) OR (FLPTR) 

STX FLPTR 

STY FLPTR+1 

LDY #FPREC-1 i ENTRY W/FLPTR SET 

LDA FRO, Y 

STA (FLPTR), Y 

DEY 

BPL FST01 

RTS 


MOVE FRO TO FR 1 


MV0T01 



FMOVE 

LDX 

#FPREC- 1 

FM0VE1 

LDA 

FRO, X 


STA 

DEX 

FR 1 , X 


BPL 

RTS 

FMOVE 1 


ERR LINE ADDR B1 B2 B3 B4 


1604 



1605 

DDCO 

A2 89 

1606 

DDC2 

AO DE 

1607 

DDC4 

20 98 DD 

1608 

DDC7 

20 DB DA 

1609 

DDCA 

BO 7F 

1610 

DD CC 

A9 00 

161 1 

DDCE 

85 FI 

1612 

DDDO 

A5 D4 

1613 

DDD2 

85 FO 

1614 

DDD4 

29 7F 

1615 

DDD6 

85 D4 

1616 

DDD9 

38 

1617 

DDD9 

E9 40 

1618 

DDDB 

30 26 

1619 



1620 

DDDD 

C9 04 

1621 

DDDF 

10 6A 

1622 

DDE! 

A2 E6 

1623 

DDE3 

AO 05 

1624 

DDE5 

20 A7 DD 

1625 

DDE8 

20 D2 D9 

1626 

DDEB 

A5 D4 

1627 

DDED 

85 FI 

1628 

DDEF 

A5 D5 

1629 

DDF1 

DO 58 

1630 

DDF3 

20 AA D9 


1631 DDF6 20 B6 DD 

1632 DDF9 A2 E6 

1633 DDFB AO 05 


1634 DDFD 20 89 DD 

1635 DEOO 20 60 DA 

1636 

1637 

1638 

1639 


1640 

DEO 3 




1641 

DE03 

A9 

OA 


1642 

DE05 

A2 

4D 


1643 

DEO 7 

AO 

DE 


1644 

DE09 

20 

40 

DD 

1645 

DEOC 

20 

B6 

DD 

1646 

DEOF 

20 

DB 

DA 

1647 

DE 1 2 

A5 

FI 


1648 

DEI 4 

FO 

23 


1649 

DE 1 6 

18 



1650 

DE 1 7 

6A 



1651 

DEI 8 

85 

EO 


1652 

DEI A 

A9 

01 


1653 

DE1C 

90 

02 


1654 

DE1E 

A9 

10 


1655 

DE20 

85 

El 


1656 

DE22 

A2 

04 


1657 

DE24 

A9 

00 



EXP ( X 
EXP 

EXP 1 0 

i 


i 

i 

i 

i 

EXP 1 


EXP2 


) & EXP10(X> 


PAGE 
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. PAGE 

'EXP(X) & EXP 1 0 < X ) ' 

LDX 

#. LOW. LOG 1 OEi 

E **X = 1 O'*-* ( Xfc-LOG 10(E) ) 

LDY 

#. HIGH. LOG 1 OE 

JSR 

FLD1R 


JSR 

FMUL 


BCS 

EXPERR 


LDA 

#0 ; 

10**X 

STA 

XFMFLG ; 

CLEAR TRANSFORM FLAG 

LDA 

FRO 

STA 

SGNFLG ; 

REMEMBER ARG SGN 

AND 

#$7F ; 

8< MAKE PLUS 

STA 

SEC 

FRO 


SBC 

#$40 


BMI 

EXP 1 ; 

XCl SO USE SERIES DIRECTLY 

1 0**X 

- 10**(I+F) - (10**1) * ( 10**F ) 

CMP 

#FPREC— 2 


BPL 

EXPERR i 

ARG TOO BIG 

LDX 

#. LOW. FPSCR 


LDY 

#. HIGH. FPSCR 


JSR 

FSTOR ; 

SAVE ARG 

JSR 

FPI 

MAKE INTEGER 

LDA 

FRO 


STA 

XFMFLG ; 

SAVE MULTIPLIER EXP IN XFORM 

LDA 

FRO+1 

CHECK MSB 

BNE 

EXPERR ; 

SHUDNT OTTA HAVE ANY 

JSR 

IFP ; 

NOW TURN IT BACK TO FLPT 

JSR 

FMOVE 


LDX 

#. LOW. FPSCR 


LDY 

#. HIGH. FPSCR 


JSR 

FLDOR ; 

GET ARG BACK 

JSR 

FSUB ; 

ARG - INTEGER PART - FRACTION PART 


NOW HAVE FRACTION PART OF ARG (F) IN FRO, 
INTEGER PART (I) 

IN XFMFLG. USE SERIES APPROX FOR 
10**F, THEN MULTIPLY BY 10**1 


LDA 

#NPCOEF 


LDX 

#. LOW. P10C0F 


LDY 

#. HIGH. P10C0F 


JSR 

PLYEVL ; 

P(X) 

JSR 

FMOVE 


JSR 

FMUL ; 

P(X)*P(X) 

LDA 

XFMFLG i 

DID WE TRANSFORM ARG 

BEQ 

CLC 

EXPSGN ; 

NO SO LEAVE RESULT ALONE 

RORA 

i 

1/2 

STA 

FRl ; 

SAVE AS EXP-TO-BE 

LDA 

#1 i 

GET MANTISSA BYTE 

BCC 

EXP2 ; 

CHECK BIT SHIFTED OUT OF A 

LDA 

#$10 i 

I WAS ODD - MANTISSA = 10 

STA 

FR 1 + 1 


LDX 

#FPREC-2 


LDA 

#0 



UP THERE 


ERR LINE 

ADDR 

B 1 

B2 

B3 

B4 

1658 

DE26 

95 

E2 



1659 

DE28 

CA 




1660 

DE29 

10 

FB 



1661 

DE2B 

A5 

EO 



1662 

DE2D 

18 




1663 

DE2E 

69 

40 



1664 

DE30 

BO 

19 



1665 

DE32 

30 

17 



1666 

DE34 

85 

EO 



1667 

DE36 

20 

DB 

DA 


1668 

DE39 

A5 

FO 



1669 

DE3B 

10 

OD 



1670 

DE3D 

20 

B6 

DD 


1671 

DE40 

A2 

8F 



1672 

DE42 

AO 

DE 



1673 

DE44 

20 

89 

DD 


1674 

DE47 

20 

28 

DB 


1675 

DE4A 

60 




1676 

DE4B 

38 




1677 

DE4C 

60 




1678 

DE4D 

3D 

17 

94 

19 

1679 

DE51 

00 

00 



1680 

DE53 

3D 

57 

33 

05 

1681 

DE57 

00 

00 



1682 

DE59 

3E 

05 

54 

76 

1683 

DE5D 

62 

00 



1684 

DE5F 

3E 

32 

19 

62 

1685 

DE63 

27 

00 



1686 

DE65 

3F 

01 

68 

60 

1687 

DE69 

30 

36 



1688 

DE6B 

3F 

07 

32 

03 

1689 

DE6F 

27 

41 



1690 

DE7 1 

3F 

25 

43 

34 

1691 

DE75 

56 

75 



1692 

DE77 

3F 

66 

27 

37 

1693 

DE7B 

30 

50 



1694 

DE7D 

40 

01 

15 

12 

1695 

DE81 

92 

55 



1696 

DE83 

3F 

99 

99 

99 

1697 

DE87 

99 

99 



1698 

OOOA 





1699 

DE89 

3F 

43 

42 

94 

1700 

DE8D 

48 

19 



1701 

DE8F 

40 

01 

00 

00 

1702 

DE93 

00 

00 




EXP ( X ) 
EXP3 


EXPSGN 


EXPOUT 

EXPERR 

PIOCOF 


NPCOEF 

LOGIOE 

FONE 


h. EXP 1 0 < X ) 


PAGE 


48 


STA 

FR1+2, X 

; CLEAR REST OF MANTISSA 

DEX 



BPL 

EXP3 


LDA 

FR1 

i BACK TO EXPONENT 

CLC 



ADC 

#$40 

» BIAS IT 

BCS 

EXPERR 

; OOPS. . . IT'S TOO BIG 

BMI 

EXPERR 


STA 

FR1 

FR1 * 10**1 

JSR 

FMUL 

( 10**1 )*( 10**F ) 

LDA 

SGNFLG 

WAS ARGCO 

BPL 

EXPOUT 

NO-DONE 

JSR 

FMOVE 

YES-INVERT RESULT 

LDX 

#. LOW. FONE 


LDY 

#. HIGH. FONE 


JSR 

FLDOR 


JSR 

FDIV 


RTS 


(PANT, PANT - FINISHED!!) 

SEC 


FLAG ERROR 

RTS 


& QUIT 

. BYTE 

$3D, $17, $94, $19, 0, 0 ; 0. 0000179419 


. BYTE $3D, $57, $33, $05, 0, 0 ; 0. 0000573305 


. BYTE $3E, $05, $54, $76, $62, 0 ; 0. 0005547662 

.BYTE $3E, $32, $19, $62, $27, 0 ; 0. 0032176227 


. BYTE 

. BYTE 

. BYTE 

. BYTE 

. BYTE 

. BYTE 

. EQU 
. BYTE 

. BYTE 


$3F , $01, $68, $60, $30, $36 

$3F, $07, $32, $03, $27, $41 

$3F , $25, $43, $34, $56, $75 

$3F, $66, $27, $37, $30, $50 

$40, $01, $15, $12, $92, $55 

$3F, $99, $99, $99, $99, $99 

*<-P10CQF)/FPREC 

$3F , $43, $42, $94, $48, $19 

$40, 1, 0, 0, 0, 0 i 


i 0. 0168603036 
; 0. 0732032741 
; 0. 2543345675 
; 0. 6627373050 
; 1. 15129255 
; 0. 999999999 

; LGGIO(E) 


1 . 0 







LINE 

ADDR 

B 1 

B2 

B3 B4 

Z - <X-C)/<X+C) 


1703 







1704 

DE95 

86 

FE 


XFORM STX 

FPTR2 

1705 

DE97 

84 

FF 


STY 

FPTR2+1 

1706 

DE99 

A2 

EO 


LDX 

#. LOW. PLYARG 

1707 

DE9B 

AO 

05 


LDY 

#. HIGH. PLYARG 

1708 

DE9D 

20 

A7 

DD 

JSR 

FSTOR ; STASH X IN PLYARG 

1709 

DEAO 

A6 

FE 


LDX 

FPTR2 

1710 

DEA2 

A4 

FF 


LDY 

FPTR2+1 

1711 

DEA4 

20 

98 

DD 

JSR 

FLD1R 

1712 

DEA7 

20 

66 

DA 

JSR 

FADD ; X+C 

1713 

DEAA 

A2 

E6 


LDX 

#. LOW. FPSCR 

1714 

DEAC 

AO 

05 


LDY 

#. HIGH. FPSCR 

1715 

DEAE 

20 

A7 

DD 

JSR 

FSTOR 

1716 

DEB 1 

A2 

EO 


LDX 

#. LOW. PLYARG 

1717 

DEB3 

AO 

05 


LDY 

#. HIGH. PLYARG 

1718 

DEBS 

20 

89 

DD 

JSR 

FLDOR 

1719 

DEB8 

A6 

FE 


LDX 

FPTR2 

1720 

DEBA 

A4 

FF 


LDY 

FPTR2+1 

1721 

DEBC 

20 

98 

DD 

JSR 

FLD1R 

1722 

DEBF 

20 

60 

DA 

JSR 

FSUB ; X-C 

1723 

DEC2 

A2 

E6 


LDX 

#. LOW. FPSCR 

1724 

DEC4 

AO 

05 


LDY 

#. HIGH. FPSCR 

1725 

DEC6 

20 

98 

DD 

JSR 

FLD1R 

1726 

DEC9 

20 

28 

DB 

JSR 

FDIV > <X-C)/<X+C) = Z 

1727 

DECC 

60 



RTS 
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ERR 


LINE 

ADDR 

B 1 

B2 

B3 

1728 





1729 

DECD 

A9 

01 


1730 

DECF 

DO 

02 


1731 

DED1 

A9 

00 


1732 

DED3 

85 

FO 


1733 

DED5 

A5 

D4 


1734 

DED7 

FO 

05 


1735 

DED9 

30 

03 


1736 





1737 





1738 





1739 

DEDB 

4C 

F6 

DF 

1740 

DEDE 

38 



1741 

DEDF 

60 



1742 

DEEO 

E9 

40 


1743 

DEE2 

OA 



1744 

DEE3 

85 

FI 


1745 

DEE5 

A5 

D5 


1746 

DEE7 

29 

FO 


1747 

DEE9 

DO 

04 


1748 

DEEB 

A9 

01 


1749 

DEED 

DO 

04 


1750 

DEEF 

E6 

FI 


1751 

DEF 1 

A9 

10 


1752 

DEF3 

85 

El 


1753 

DEF5 

A2 

04 


1754 

DEF7 

A9 

00 


1755 

DEF9 

95 

E2 


1756 

DEFB 

CA 



1757 

DEFC 

10 

FB 


1758 

DEFE 

20 

28 

DB 

1759 

DF01 




1760 

DF01 

A2 

66 


1761 

DF03 

AO 

DF 


1762 

DF05 

20 

95 

DE 

1763 

DF08 

A2 

E6 


1764 

DFOA 

AO 

05 


1765 

DFOC 

20 

A7 

DD 

1766 

DFOF 

20 

B6 

DD 

1767 

DF 12 

20 

DB 

DA 

1768 

DF 1 5 

A9 

OA 


1769 

DF17 

A2 

72 


1770 

DF 1 9 

AO 

DF 


1771 

DF IB 

20 

40 

DD 

1772 

DF1E 

A2 

E6 


1773 

DF20 

AO 

05 


1774 

DF22 

20 

98 

DD 

1775 

DF25 

20 

DB 

DA 

1776 

DF28 

A2 

6C 


1777 

DF2A 

AO 

DF 


1778 

DF2C 

20 

98 

DD 

1779 

DF2F 

20 

66 

DA 

1780 

DF32 

20 

B6 

DD 

1781 

DF35 

A9 

00 



B4 


L.0G10 ( X ) 


PAGE 


50 



. PAGE 

7 LOG 1 0 ( X ) 7 

LOG 

LDA 

; REMEMBER ENTRY POINT 


BNE 

LOGBTH 

LOG 10 

LDA 

i CLEAR FLAG 

LOGBTH 

STA 

SGNFLG ; USE SGNFLG FOR L0G/L0G1 


LDA 

P'RO 


BEQ 

LOGERR ; LOGCO> 


BMI 

LOGERR 

i 

WE WANT 

X « F# ( lOtt-a-Y ) , KFC10 

i 

10**Y HAS SAME EXP BYTE AS X 

} 

2< MANTISSA BYTE = 1 OR 10 

LOGl 

JMP 

LOGl XX ; MOVED CODE 

LOGERR 

SEC 

RTS 


LOGl YY 

SBC 

ASLA 

#$40 ; RETURN FROM MOVED CODE 


STA 

XFMFLG i REMEMBER Y 


LDA 

FRO+1 


AND 

#$F0 


BNE 

L0G2 


LDA 

#1 


BNE 

L0G3 

L0G2 

INC 

XFMFLG ; BUMP Y 


LDA 

#$10 

L.0G3 

STA 

FR 1+1 ; SET UP MANTISSA 


LDX 

#FPREC-2 ; CLEAR REST OF MANTISSA 


LDA 

#0 

L.0G4 

STA 

DEX 

FR1+2, X 


BPL 

L0G4 


JSR 

FDI V f X = X/<10**Y) - S. B. IN 

FL0G10 

. EGU 

* ; LOGIO(X)/ l< as X< s =10 


LDX 

#. LOW. SQR10 


LDY 

#. HIGH. SQR10 


JSR 

XFORM ,2 = <X-C)/<X+C), C*C = 10 


LDX 

#. LOW. FPSCR 


LDY 

#. HIGH. FPSCR 


JSR 

FSTOR ; SAVE Z 


JSR 

FMOVE 


JSR 

FMUL ; Z*Z 


LDA 

#NLCQEF 


LDX 

#. LOW. LGCOEF 


LDY 

#. HIGH. LGCOEF 


JSR 

PLYEVL i P<Z*Z) 


LDX 

#. LOW. FPSCR 


LDY 

#. HIGH. FPSCR 


JSR 

FLD1R 


JSR 

FMUL ; Z*P(Z*Z> 


LDX 

#. LOW. FHALF 


LDY 

#. HIGH. FHALF 


JSR 

FLD1R 


JSR 

FADD ; 0. 5 + Z*P<Z*Z) 


JSR 

FMOVE 


LDA 

#0 


MARKER 


< 1 , 10 ) 


ERR LINE ADDR B1 B2 B3 B4 


L0G1 0 ( X ) 


1782 

DF37 

85 

D5 

1783 

DF39 

A5 

FI 

1784 

DF3B 

85 

D4 

1785 

DF3D 

10 

07 

1786 

DF 3F 

49 

FF 

1787 

DF41 

18 


1788 

DF42 

69 

01 

1789 

DF44 

85 

D4 

1790 

DF46 



1791 

DF46 

20 

AA 

1792 

DF49 

24 

FI 

1793 

DF4B 

10 

06 

1794 

DF4D 

A9 

80 

1795 

DF4F 

05 

D4 

1796 

DF51 

85 

D4 

1797 

DF53 



1798 

DF53 

20 

66 

1799 

DF56 



1800 

DF56 

A5 

FO 

1801 

DF 58 

FO 

OA 

1802 

DF5A 

A2 

89 

1803 

DF5C 

AO 

DE 

1804 

DF5E 

20 

98 

1805 

DF61 

20 

28 

1806 

DF64 

18 


1807 

DF65 

60 



L0G6 


D9 


DA 


L0G7 

LOGOUT 


ISOS 

1809 

1S10 

1811 

1812 

1813 


DF 66 
DF6A 
DF6C 
DF70 
DF72 
DF76 


40 

77 

3F 

00 

3F 

11 


03 

66 

50 

00 

49 

08 


DD 

DB 


16 


22 


00 00 


15 57 


LOGDON 

SQR10 

FHALF 

LGCOEF 


STA 

LDA 

STA 

BPL 

EOR 

CLC 

ADC 

STA 

JSR 

BIT 

BPL 

LDA 

ORA 

STA 

JSR 

LDA 
BEQ 
L.DX 
LDY 
JSR 
JSR 
CLC 
RTS 
. BYTE 

. BYTE 

. BYTE 


1814 

DF78 

BF 

51 

70 

49 


. BYTE 

1815 

DF7C 

47 

08 





1816 

DF7E 

3F 

39 

20 

57 


. BYTE 

1817 

DF82 

61 

95 





1818 

DF84 

BF 

04 

39 

63 


. BYTE 

1819 

DF88 

03 

55 





1820 

DF8A 

3F 

10 

09 

30 


. BYTE 

1821 

DF8E 

12 

64 





1822 

DF90 

3F 

09 

39 

08 


. BYTE 

1823 

DF94 

04 

60 





1824 

DF96 

3F 

12 

42 

58 


. BYTE 

1825 

DF9A 

47 

42 





1826 

DF9C 

3F 

17 

37 

12 


. BYTE 

1827 

DFAO 

06 

08 





1828 

DFA2 

3F 

28 

95 

29 


. BYTE 

1829 

DF A6 

71 

17 





1830 

DFA8 

3F 

86 

85 

88 


. BYTE 

1831 

DFAC 

96 

44 





1832 

OOOA 





NLCOEF 

. EQU 

1833 

DFAE 

3E 

16 

05 

44 

ATCOEF 

. BYTE 

1834 

DFB2 

49 

00 





1835 

DFB4 

BE 

95 

68 

38 


. BYTE 


PAGE 


51 


FRO+ 1 

XFMFLG 

FRO 

L0G6 

#-l 

#1 

FRO 

IFP 

XFMFLG 

L0G7 

#$80 

FRO 

FRO 


i FLIP SIGN 


; LEAVES FR 1 ALONE 
; FLIP AGAIN 


FADD } LOG ( X > = LOG(X) +Y 

SGNFLG 

LOGDON ; WAS LOG 10. NOT LOG 

#. LOW. L0G10E; LOG ( X > /L0G10( E ) 

#. HIGH. L0G10E 

FLD1R 

FDIV 


$40, $03. $16. $22, $77, $66 ; SQUARE ROOT OF 10. 

$3F, $50, 0, 0, 0, 0 ; 0. 5. m 

$3F , $49, $15, $57, $11, $08 ; 0. 4915571108 

% 

$BF, $51, $70, $49, $47, $08 ; -0. 5170494708 

$3F, $39, $20, $57, $61, $95 ; 0. 3920576195 \ 

$BF, $04, $39, $63, $03, $55 ; -0. 0439630355 

$3F, $10, $09, $30, $12, $64 ; 0.1009301264 

$3F i $09, $39, $08, $04, $60 > 0. 0939080460 

$3F , $12, $42, $58, $47, $42 ; 0. 1242584742 

$3F , $17, $37, $12, $06, $08 ; 0. 1737120608 

$3F , $28, $95, $29, $71, $17 ; 0. 28957117 

$3F, $86, $85, $88, $96, $44 ; 0. 8685889644 

# ( -LGCOEF ) /FPREC 

$3E, $16, $05, $44, $49, 0 ; 0. 0016054449 
$BE, $95, $68, $38, $45, 0 ; -0. 009568345 


ERR LINE 

ADDR 

B 1 

B2 

1836 

DFB8 

45 

00 

1837 

DFBA 

3F 

02 

1838 

DFBE 

94 

16 

1839 

DFCO 

BF 

04 

1840 

DFC4 

90 

80 

1841 

DFC6 

3F 

07 

1842 

DFCA 

20 

00 

1843 

DFCC 

BF 

08 

1844 

DFDO 

12 

44 

1845 

DFD2 

3F 

11 

1846 

DFD6 

09 

1 1 

1847 

DFD8 

BF 

14 

1848 

DFDC 

56 

04 

1849 

DFDE 

3F 

19 

1850 

DFE2 

77 

44 

1851 

DFE4 

BF 

33 

1852 

DFE8 

31 

13 

1853 

DFEA 

3F 

99 

1854 

DFEE 

99 

99 

1855 

OOOB 



1856 

DFFO 

3F 

78 

1857 

DFF4 

16 

34 

1858 

DFF6 

A5 

D4 

1859 

DFF8 

85 

EO 

1860 

DFFA 

38 


1861 

DFFB 

4C 

EO 

1862 

DFFE 




B4 

LOGIO(X) 

79 


. BYTE 

78 


. BYTE 

15 


. BYTE 

29 


. BYTE 

40 


. BYTE 

31 


. BYTE 

98 


. BYTE 

33 


. BYTE 

99 

FP9S 

. BYTE 


NATCF 

. EQU 

98 

PI0V4 

. BYTE 


L0G1XX 

LDA 



STA 



SEC 



JMP 



. END 


B3 

68 

92 

03 

92 

08 

28 

99 

33 

99 

53 

DE 


ASSEMBLY ERRORS 


0 


$3F, $02, $68/ $79> $94/ $16 ; 0. 0268799416 
$BF, $04/ $92/ $78/ $90/ $80 ; -0. 0492789080 
$3F/ $07/ $03/ $15/ $20/ 0 i 0. 0703152000 
$BF, $08/ $92/ $29/ $12/ $44 ■, -0. 0892291244 
$3F / $11, $08, $40, $09, $11 ; 0. 1 10840091 1 
$BF, $14, $28, $31, $56, $04 , -0. 1428315604 
$3F, $19, $99, $98, $77, $44 ; 0. 1999987744 
$BF, $33, $33, $33, $31, $13 ; -0.3333333113 
$3F, $99, $99, $99, $99, $99 , 0. 999999999 
*(-ATCOEF)/FPREC 

$3F, $78, $53, $98, $16, $34 , PI/4 = ARCTAN(l.O) 

FRO ; MOVED CODE 

FR1 


L0G1YY 


SYMBOL TABLE 


AFP 

D800 

CVAFP 

D800 

DEGON 

0006 

EXP 

DDCO 

EXP3 

DE26 

FADD 

DA66 

FHALF 

DF6C 

FLD1 1 

DD9E 

FLPTR 

OOFC 

FMUL 

DADB 

FPORG 

DSOO 

FPTR2 

OOFE 

FR1M 

00E1 

FRA20 

DD05 

FRX 

OOEC 

FSTOP 

DDAB 

ILSHFT 

DA 5 A 

LBPR2 

057F 

L0G1 

DEDB 

L0G1YY 

DEEO 

L0G6 

DF 46 

LOGERR 

DEDE 

MDSUP 

DCEO 

MEND3 

DB24 

NARG 

0000 

NLCOEF 

OOOA 

NSIGN 

OOEE 

P LYCNT 

OOEF 

PLYOUT 

DD88 

RSHFOE 

DC 62 

SKPBLK 

DBA1 

TSTNUM 

DBAF 

ZFRO 

DA44 

ZXLY 

DA48 

-CVB1 

DC79 

-DP 

DS5A 

JEF4 

D97A 

_EPLUS 

D8AD 

_EX I T1 

D8C3 

_FADON 

D9A9 

_FN3 

DCA6 

JFNZER 

DCA4 

_FRADD 

DA66 

__FRM1 

DAF7 

_FRS2 

DB52 

_IFP1 

D9B8 

-IN2 

DS1C 

_INDON 

D8E4 

JMALIG 

DA8E 

_N0INC 

D94C 

JMORM 

DCOA 

NSWAP 

DA85 


ASCIN 

D800 

CVFASC 

D8E6 

DIGRT 

OOF 1 

EXP 1 

DE03 

EXPERR 

DE4B 

FASC 

DSE6 

FLD01 

DD8F 

FLD1P 

DD9C 

FMOVE 

DDB6 

FONE 

DE8F 

FPREC 

0006 

FRO 

00D4 

FR2 

00E6 

FRA2E 

ddof 

FSCR 

05E6 

FSTOR 

DDA7 

INBUFF 

00F3 

LBUFF 

0580 

LDG10 

DED1 

L0G2 

DEEF 

L0G7 

DF53 

LOGOUT 

DF56 

MEMORY 

M 0000 

MV0T01 

DDB6 

NATCF 

OOOB 

NORM 

DCOO 

P10C0F 

DE4D 

PLYEV1 

DD5B 

QTEMP 

00D9 

RSHFTO 

DC3A 

SGR 1 0 

DF66 

XFMFLG 

00F1 

ZTEMP1 

00F5 

_ADD1 

DA98 

_CVBYT 

DC76 

__EF1 

D94F 

_EFQRM 

D920 

_ERVAL 

DA42 

_EXPO 

D91 A 

_FAIL2 

DB87 

-FN4 

D99C 

__FP 1 1 

D9EA 

-FRD1 

DB4E 

_FRM2 

DB01 

JGCHR 1 

DB9D 

_IFP2 

D9BE 

_INCE 

D837 

_M I NUS 

DS56 

_NDONE 

DC38 

__N0N1 

D842 

_NOTE 

D8B2 

NXTB 

DB 1 3 


ATCOEF 

DFAE 

CVIFP 

D9AA 

EEXP 

OOED 

EXP 1 0 

DDCC 

EXPOUT 

DE4A 

FCHRFL 

OOFO 

FLDOP 

DD8D 

FLD1R 

DD98 

FMOVE 1 

DDBS 

FP9S 

DFEA 

FPSCR 

05E6 

FROM 

00D5 

FRA10 

DD01 

FRE 

OODA 

FSCR 1 

05EC 

FSUB 

DA60 

INTLBF 

DAS 1 

LGCOEF 

DF72 

L0G10E 

DES9 

L0G3 

DEF3 

LOGBTH 

DED3 

MDEND 

DB 1 A 

MENDl 

DB 1 E 

MVFROE 

DD34 

NIBSHO 

DBEB 

NORM 1 

DC04 

PI0V4 

DFFO 

PLYEV2 

DD6F 

radflg 

OOFB 

RSHFT1 

DC3E 

SQRCNT 

OOEF 

XFORM 

DE95 

Z TEMPO 

00F9 

__ADD2 

DAA7 

CVFRO 

DC70 

EF2 

D96B 

EMIN 

D8AB 

EVEN 

D8CE 

FI 

DDOB 

FN1 

DCB4 

-FN5 

D988 

FRA 

DD13 

FRD2 

DB70 

FRM3 

DB09 

J5ETCH 

DB94 

ILSHF 

DA5A 

_INCE2 

D83E 

_jivi 

DD36 


DBED 

__N0N2 

D8A3 

NR 

DA38 

NXTB 1 

DC64 


CIX 

DEGFLO 

ES I GN 

EXP2 

EXPSGN 

FDIV 

FL.DOR 

FLOG 10 

FMPREC 

FPI 

FPSCR1 

FR1 

FRA1E 

FRSIGN 

FST01 

IFP 

LBPR1 

LOG 

LOG 1 XX 

L0G4 

LOGDON 

MDESUP 

MEND2 

MVFR12 

NIBSH2 

NPCOEF 

PLYARG 

PLYEVL 

RADON 

SGNFLG 

STACK 

ZF1 

ZTEMP4 

_ADDEN 

JDECIN 

_EF3 

_EPL 

__EXIT 

_F2 

_FN2 

_J r N6 

_FRA1 

_FRM 

__FRS1 

_GETDI 

_IN1 

_IND2 

__MV2 

JMIBS 

_NONUM 

_NSH 

NXTG 


00F2 
OOFB 
OOEF 
DE20 
DE39 
DB28 
DD89 
DFOl 
0005 
D9D2 
05EC 
OOEO 
DD09 
OOEE 
DDAD 
D9AA 
057E 
DECD 
DFF6 
DEF9 
DF64 
DCCF 
DB21 
DD28 
DBE7 
OOOA 
05E0 
DD40 
0000 
OOFO 
0000 
DA46 
00F7 
D A A4 
DCC 1 
D972 
D969 
D8B6 
DDU 
DCB8 
D914 
DD19 
DAF1 
DB74 
DCB9 
D818 
D8E5 
DD2A 
DBEF 
D841 
DC 10 
DB43 


.NORM 

NSWAP 


DCOA 

DA85 


NOTE 

NXTB 


NXTQ1 
RSH2 
SBRTS 
.SUB 1 
TSNFA 
TSTDP 
ZF2 
EXP2 


DB45 
DC46 
DBAC 
DAB6 
DBDO 
DC93 
DA4A 
DS6C 


ROUND 
RTF A I 
STCHA 
SUB 2 
TST1 
TSTN 

EROV 

EXP3 


D8B2 
DB 1 3 


DA24 
DBCF 
DC9F 
DAC5 
DC9C 
DB DB 
DB26 
D88E 


NR DA38 

NXTB1 DC64 


* * w» iWI i 


NSH 

NXTQ 


1/0*+ x 


DC 10 
DB43 


RSH 

DC40 

_rtpas 

DBE2 

__STNUM 

DC9D 

SUB 3 

DACE 

TSTBI 

DC28 

tstni 

DBD2 

EXP 

D863 

FAIL 

DB65 


__RSH1 

DC48 

_SB1 

DBA5 

__SUB 

DAB3 

__SWAP 

DA77 

_TSTCH 

DBBB 

__TSTUN 

DC 31 

EXP 1 

D89B 


